Metrics for Midpoint on a great circle

start0.0ms (0%)

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

analyze680.0ms (6.1%)

Memory

15.5MiB live, 677.6MiB allocated; 136ms 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
9.4%	9.4%	90.4%	0.2%	0%	0%	0%	9
9.4%	9.4%	90.4%	0.2%	0%	0%	0%	10
10.9%	10.9%	88.9%	0.2%	0%	0%	0%	11
10.9%	10.9%	88.9%	0.2%	0%	0%	0%	12

Compiler

Compiled 22 to 16 computations (27.3% saved)

sample5.1s (46.1%)

Memory

83.4MiB live, 3 907.2MiB allocated; 575ms collecting garbage

Samples

3.9s	4 555×	1	valid
607.0ms	3 700×	0	valid
1.0ms	1×	2	valid

Precisions

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

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

ival-sin: 611.0ms (14.8% of total)

adjust: 437.0ms (10.6% of total)

ival-atan2: 273.0ms (6.6% of total)

ival-mult: 187.0ms (4.5% of total)

ival-add: 138.0ms (3.3% of total)

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

ival-assert: 3.0ms (0.1% of total)

Bogosity

explain564.0ms (5.1%)

Memory

15.7MiB live, 407.8MiB allocated; 34ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Underpredictions	Example	Subexpression
78	119	(5.6309078871517e+304 2.0814133769153143e-38 -3.0390370064407344e-153 4.9932135891965573e-225)	0	-	`(sin.f64 (-.f64 lambda1 lambda2))`
78	119	(5.6309078871517e+304 2.0814133769153143e-38 -3.0390370064407344e-153 4.9932135891965573e-225)	0	-	`(cos.f64 (-.f64 lambda1 lambda2))`
4	0	-	2	(3.1464304331191984e-66 3.288230465999417e+200 -5.3528492472389165e+247 -2.315937867624026e+216)	`(+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))`
0	0	-	0	-	`lambda2`
0	0	-	0	-	`phi1`
0	0	-	0	-	`(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))`
0	0	-	0	-	`phi2`
0	0	-	0	-	`(atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))`
0	0	-	0	-	`(*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2)))`
0	0	-	0	-	`(*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))`
0	0	-	0	-	`(-.f64 lambda1 lambda2)`
0	0	-	0	-	`lambda1`
0	0	-	0	-	`(cos.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	197	0
`sin.f64`	`(sin.f64 (-.f64 lambda1 lambda2))`	sensitivity	197	0
`+.f64`	`(+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))`	cancellation	1	2

Confusion

	Predicted +	Predicted -
+	8	0
-	189	59

Precision

0.04060913705583756

Recall

1.0

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	8	0	0
-	189	0	59

Precision?

0.04060913705583756

Recall?

1.0

Freqs

test

number	freq
0	59
2	196
3	1

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

341.0ms	390×	1	valid
51.0ms	122×	0	valid

Compiler

Compiled 186 to 46 computations (75.3% saved)

Precisions

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

ival-cos: 179.0ms (62.6% of total)

ival-sin: 36.0ms (12.6% of total)

adjust: 28.0ms (9.8% of total)

ival-atan2: 16.0ms (5.6% of total)

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

ival-add: 8.0ms (2.8% of total)

ival-sub: 5.0ms (1.7% of total)

ival-true: 1.0ms (0.3% of total)

ival-assert: 0.0ms (0% of total)

preprocess147.0ms (1.3%)

Memory

5.1MiB live, 98.1MiB allocated; 11ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	95	314
1	219	313
2	422	313
3	940	313
4	2456	313
5	6076	313
0	14	20
0	24	20
1	46	20
2	83	20
3	182	20
4	450	20
5	1233	20
6	3580	20
7	7555	20
0	8055	20

Stop Event

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

Calls

Call 1

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

Outputs

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

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

Symmetry

(abs phi1)

(abs phi2)

Compiler

Compiled 20 to 14 computations (30% saved)

eval0.0ms (0%)

Memory: 0.1MiB live, 0.1MiB allocated; 0ms collecting garbage
Compiler: Compiled 0 to 4 computations (-∞% saved)

prune1.0ms (0%)

Memory

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

Alt Table

Click to see full alt table

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

Compiler

Compiled 20 to 14 computations (30% saved)

series31.0ms (0.3%)

Memory

-9.8MiB live, 36.4MiB allocated; 3ms collecting garbage

Counts

14 → 102

Calls

Call 1

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

Outputs
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx lambda1 #s(hole binary64 lambda1))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (neg lambda2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (neg lambda2)))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #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 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* 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 (* (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 (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 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #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) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) lambda1)) 1)))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #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) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos 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 (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 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) (sin (- lambda1 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 (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) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* 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 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 (- 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 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #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) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos 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 (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#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 phi1) #s(hole binary64 (cos phi1)))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #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) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (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) (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 phi2) #s(hole binary64 (cos phi2)))

Calls

12 calls:

Time	Variable		Point	Expression
7.0ms	lambda1	@	0	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (cos phi1) phi1 (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)))
3.0ms	lambda1	@	-inf	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (cos phi1) phi1 (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)))
2.0ms	lambda1	@	inf	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (cos phi1) phi1 (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)))
2.0ms	phi2	@	inf	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (cos phi1) phi1 (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)))
2.0ms	lambda2	@	-inf	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (cos phi1) phi1 (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)))

rewrite203.0ms (1.8%)

Memory

0.1MiB live, 177.9MiB allocated; 27ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	371	2389
0	391	2317
1	2239	2315
0	10020	2315

Stop Event

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

Counts

116 → 179

Calls

Call 1

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

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

eval48.0ms (0.4%)

Memory

19.0MiB live, 64.4MiB allocated; 4ms collecting garbage

Samples

13.0ms

256×

valid

Compiler

Compiled 7 044 to 1 185 computations (83.2% saved)

Precisions

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

ival-add: 4.0ms (52.5% of total)

ival-div: 2.0ms (26.3% of total)

ival-mult: 2.0ms (26.3% of total)

ival-true: 0.0ms (0% of total)

adjust: 0.0ms (0% of total)

ival-assert: 0.0ms (0% of total)

prune47.0ms (0.4%)

Memory

-6.7MiB live, 48.5MiB allocated; 7ms collecting garbage

Pruning

30 alts after pruning (30 fresh and 0 done)

	Pruned	Kept	Total
New	183	30	213
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	184	30	214

Accuracy

98.9%

Counts

214 → 30

Alt Table

Click to see full alt table

Status	Accuracy	Program
	66.3%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))))
	53.7%	(+.f64 (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 (.f64 lambda1 lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64)) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 3 binary64)) (+.f64 (.f64 lambda1 lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64)) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))))))
	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (+.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 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	98.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	93.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64))) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
	98.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))))))
	93.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))))
	98.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))) (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)) (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))))))
	98.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (+.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	98.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
▶	98.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.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)))))))))
	81.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	80.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))
	98.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (+.f64 (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))))
	98.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))))
	77.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	84.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	79.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	83.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64)) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	81.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	77.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
	85.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	87.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	67.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	77.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (.f64 (neg.f64 lambda2) (cos.f64 lambda1)) (sin.f64 lambda1)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	98.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (.f64 (cos.f64 lambda2) lambda1) (neg.f64 (sin.f64 lambda2))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	74.0%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (+.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	76.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	98.6%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) lambda1) #s(literal 1 binary64)) lambda1))
▶	56.4%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

Compiler

Compiled 2 214 to 1 262 computations (43% saved)

series95.0ms (0.9%)

Memory

-26.5MiB live, 110.5MiB allocated; 10ms collecting garbage

Counts

59 → 323

Calls

Call 1

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

Outputs
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx lambda1 #s(hole binary64 lambda1))
#s(approx (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* (cos phi2) (sin lambda2)))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2))))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (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) (- (* (sin lambda1) (cos lambda2)) (* (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 (- (* (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 (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) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* 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 (* (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 (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 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (neg lambda2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (neg lambda2)))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #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 (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (neg lambda2)) (* -1/2 (* (pow phi2 2) (cos (neg lambda2))))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (neg lambda2)) (+ (* -1/2 (* (pow phi2 2) (cos (neg lambda2)))) (* lambda1 (- (* 1/2 (* (pow phi2 2) (sin (neg lambda2)))) (sin (neg lambda2)))))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (neg lambda2)) (+ (* -1/2 (* (pow phi2 2) (cos (neg lambda2)))) (* lambda1 (- (+ (* 1/2 (* (pow phi2 2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/4 (* (pow phi2 2) (cos (neg lambda2))))))) (sin (neg lambda2)))))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (neg lambda2)) (+ (* -1/2 (* (pow phi2 2) (cos (neg lambda2)))) (* lambda1 (- (+ (* 1/2 (* (pow phi2 2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (+ (* 1/4 (* (pow phi2 2) (cos (neg lambda2)))) (* lambda1 (- (* -1/12 (* (pow phi2 2) (sin (neg lambda2)))) (* -1/6 (sin (neg lambda2))))))))) (sin (neg lambda2)))))))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (cos (neg lambda2)))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1/2 (* (pow phi2 2) (cos (neg lambda2))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (cos (neg lambda2)))) (* 1/2 (* lambda1 (* (pow phi2 2) (sin (neg lambda2))))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (cos (neg lambda2)))) (* lambda1 (+ (* 1/4 (* lambda1 (* (pow phi2 2) (cos (neg lambda2))))) (* 1/2 (* (pow phi2 2) (sin (neg lambda2)))))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (cos (neg lambda2)))) (* lambda1 (+ (* 1/2 (* (pow phi2 2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/12 (* lambda1 (* (pow phi2 2) (sin (neg lambda2))))) (* 1/4 (* (pow phi2 2) (cos (neg lambda2)))))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* lambda1 (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi2) (+ (* -1/6 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))) (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi2) (+ (* -1/6 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))) (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))) (* lambda1 (+ (* -1/6 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) #s(hole binary64 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) #s(hole binary64 (+ (* lambda1 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos (* 1/2 (PI))) (sin (neg lambda2))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))) (* -1/6 (* lambda1 (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #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 (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) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#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 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (- lambda1 lambda2)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) lambda1)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) #s(hole binary64 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) lambda1)) 1)))))
#s(approx (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos 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 (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 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) lambda1)) 1)))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #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 (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (neg (+ lambda2 (* -1 lambda1)))) (* -1/2 (* (pow phi2 2) (cos (neg (+ lambda2 (* -1 lambda1))))))))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1/2 (* (pow phi2 2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1))))))))) lambda1)) 1)))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1))))))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) #s(hole binary64 (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI))))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (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) (- (* (sin lambda1) (cos lambda2)) (* (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 (- (* (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 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 lambda2 #s(hole binary64 lambda2))
#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) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* 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 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 (- 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 (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 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) (sin (- lambda1 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 (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 (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (* -1/2 (* (pow phi2 2) (cos lambda1)))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (+ (* -1/2 (* (pow phi2 2) (cos lambda1))) (* lambda2 (- (* -1/2 (* (pow phi2 2) (sin lambda1))) (* -1 (sin lambda1)))))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (+ (* -1/2 (* (pow phi2 2) (cos lambda1))) (* lambda2 (- (+ (* -1/2 (* (pow phi2 2) (sin lambda1))) (* lambda2 (+ (* -1/2 (cos lambda1)) (* 1/4 (* (pow phi2 2) (cos lambda1)))))) (* -1 (sin lambda1)))))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (+ (* -1/2 (* (pow phi2 2) (cos lambda1))) (* lambda2 (- (+ (* -1/2 (* (pow phi2 2) (sin lambda1))) (* lambda2 (+ (* -1/2 (cos lambda1)) (+ (* 1/4 (* (pow phi2 2) (cos lambda1))) (* lambda2 (- (* 1/12 (* (pow phi2 2) (sin lambda1))) (* 1/6 (sin lambda1)))))))) (* -1 (sin lambda1)))))))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (cos phi1))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (* lambda2 (sin lambda1))))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1))))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1/2 (* (pow phi2 2) (cos lambda1)))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda2 (* (pow phi2 2) (sin lambda1)))) (* -1/2 (* (pow phi2 2) (cos lambda1))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (cos lambda1))) (* lambda2 (+ (* -1/2 (* (pow phi2 2) (sin lambda1))) (* 1/4 (* lambda2 (* (pow phi2 2) (cos lambda1)))))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (cos lambda1))) (* lambda2 (+ (* -1/2 (* (pow phi2 2) (sin lambda1))) (* lambda2 (+ (* 1/12 (* lambda2 (* (pow phi2 2) (sin lambda1)))) (* 1/4 (* (pow phi2 2) (cos lambda1))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI))))))) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* lambda2 (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1)))))) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi2) (+ (* -1/6 (* (sin lambda1) (sin (* 1/2 (PI))))) (* 1/6 (* (cos lambda1) (cos (* 1/2 (PI)))))))) (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))))))) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI))))))) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1)))))) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi2) (+ (* -1/6 (* (sin lambda1) (sin (* 1/2 (PI))))) (* 1/6 (* (cos lambda1) (cos (* 1/2 (PI)))))))) (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))))))) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin lambda1) (sin (* 1/2 (PI))))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))) (* lambda2 (+ (* -1/6 (* (sin lambda1) (sin (* 1/2 (PI))))) (* 1/6 (* (cos lambda1) (cos (* 1/2 (PI)))))))))) (* (sin lambda1) (sin (* 1/2 (PI))))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) #s(hole binary64 (* (cos (* 1/2 (PI))) (sin lambda1))))
#s(approx (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin lambda1)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* -1/2 (* lambda2 (* (cos (* 1/2 (PI))) (sin lambda1)))))) (* (cos (* 1/2 (PI))) (sin lambda1)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* lambda2 (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos (* 1/2 (PI)))))))))) (* (cos (* 1/2 (PI))) (sin lambda1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (* (cos lambda1) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin (* 1/2 (PI))))) (* (cos lambda1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin (* 1/2 (PI)))))) (* (sin lambda1) (sin (* 1/2 (PI)))))) (* (cos lambda1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/6 (* lambda2 (* (sin lambda1) (sin (* 1/2 (PI)))))))) (* (sin lambda1) (sin (* 1/2 (PI)))))) (* (cos lambda1) (sin (* 1/2 (PI)))))))
#s(approx (cos lambda2) #s(hole binary64 (cos lambda2)))
#s(approx (sin lambda2) #s(hole binary64 (sin lambda2)))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos 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 (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 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (+ lambda1 (* -1 lambda2)))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (+ lambda1 (* -1 lambda2))) (* -1/2 (* (pow phi2 2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1/2 (* (pow phi2 2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI)))))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI)))))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) #s(hole binary64 (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#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 (+ (* (- (* (+ (* -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) (* phi1 phi1)) #s(hole binary64 (* -1/2 (pow phi1 2))))
#s(approx (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) #s(hole binary64 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))
#s(approx (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) #s(hole binary64 (* (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 (* -1/720 (* phi1 phi1)) #s(hole binary64 (* -1/720 (pow phi1 2))))
#s(approx (* phi1 phi1) #s(hole binary64 (pow phi1 2)))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (cos (- lambda1 lambda2)) (+ (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* -1/2 (pow phi1 2)))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (cos (- lambda1 lambda2)) (+ (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (cos (- lambda1 lambda2)) (+ (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ 1 (cos (- lambda1 lambda2)))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (cos (- lambda1 lambda2)) (* -1/2 (pow phi1 2))))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ 1 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (cos phi1) #s(hole binary64 (cos phi1)))
#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) (* phi1 phi1)) #s(hole binary64 (* -1/720 (pow phi1 6))))
#s(approx (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) #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)) #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) #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 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (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) (- (* (sin lambda1) (cos lambda2)) (* (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) (- (* (sin lambda1) (cos lambda2)) (* (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 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) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (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) (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 phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #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 (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (* (* phi2 phi2) -1/2) #s(hole binary64 (* -1/2 (pow phi2 2))))
#s(approx (* phi2 phi2) #s(hole binary64 (pow phi2 2)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* -1/2 (* (pow phi2 2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* 1/24 (* (pow phi2 2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* 1/24 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* 1/24 (* (pow phi2 2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* 1/24 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))))))))
#s(approx (cos phi2) #s(hole binary64 (cos phi2)))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (+ (/ (cos phi1) (pow phi2 2)) (/ (cos (- lambda1 lambda2)) (pow phi2 2)))))))

Calls

12 calls:

Time	Variable		Point	Expression
11.0ms	phi1	@	inf	((+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (cos phi2) phi2 (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) (cos lambda2) lambda2 (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (cos phi1) phi1 (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (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) (* phi1 phi1)) (- (* (+ (* -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 (* phi1 phi1)) -1/720 (* phi1 phi1) 1/24 1/2 1 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (* (* phi2 phi2) -1/2) (* phi2 phi2) -1/2 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (sin (/ (PI) 2)))
10.0ms	phi1	@	0	((+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (cos phi2) phi2 (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) (cos lambda2) lambda2 (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (cos phi1) phi1 (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (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) (* phi1 phi1)) (- (* (+ (* -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 (* phi1 phi1)) -1/720 (* phi1 phi1) 1/24 1/2 1 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (* (* phi2 phi2) -1/2) (* phi2 phi2) -1/2 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (sin (/ (PI) 2)))
9.0ms	lambda1	@	inf	((+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (cos phi2) phi2 (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) (cos lambda2) lambda2 (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (cos phi1) phi1 (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (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) (* phi1 phi1)) (- (* (+ (* -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 (* phi1 phi1)) -1/720 (* phi1 phi1) 1/24 1/2 1 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (* (* phi2 phi2) -1/2) (* phi2 phi2) -1/2 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (sin (/ (PI) 2)))
8.0ms	lambda1	@	0	((+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (cos phi2) phi2 (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) (cos lambda2) lambda2 (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (cos phi1) phi1 (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (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) (* phi1 phi1)) (- (* (+ (* -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 (* phi1 phi1)) -1/720 (* phi1 phi1) 1/24 1/2 1 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (* (* phi2 phi2) -1/2) (* phi2 phi2) -1/2 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (sin (/ (PI) 2)))
7.0ms	lambda1	@	-inf	((+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (cos phi2) phi2 (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) (cos lambda2) lambda2 (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (cos phi1) phi1 (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (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) (* phi1 phi1)) (- (* (+ (* -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 (* phi1 phi1)) -1/720 (* phi1 phi1) 1/24 1/2 1 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (* (* phi2 phi2) -1/2) (* phi2 phi2) -1/2 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (sin (/ (PI) 2)))

rewrite205.0ms (1.8%)

Memory

24.3MiB live, 164.2MiB allocated; 34ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1226	11689
0	1323	10072
0	8106	10072

Stop Event

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

Counts

382 → 513

Calls

Call 1

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

Outputs
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))
lambda1
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
(*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2)))
(sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 phi2))
(cos.f64 phi2)
phi2
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (sin.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (cos.f64 lambda1)))) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (cos.f64 lambda1))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (+.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (*.f64 (sin.f64 lambda2) (cos.f64 lambda1))))))
(sin.f64 (-.f64 lambda1 lambda2))
(-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (cos.f64 lambda1)))
(+.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)))
(*.f64 (cos.f64 lambda2) (sin.f64 lambda1))
(*.f64 (sin.f64 lambda1) (cos.f64 lambda2))
(/.f64 (+.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64))
(sin.f64 lambda1)
(sin.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (neg.f64 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (neg.f64 lambda2)))
(cos.f64 (neg.f64 lambda2))
(cos.f64 lambda2)
lambda2
(*.f64 (sin.f64 lambda2) (cos.f64 lambda1))
(*.f64 (cos.f64 lambda1) (sin.f64 lambda2))
(sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 lambda1))
(cos.f64 lambda1)
(sin.f64 lambda2)
(/.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
(/.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 phi1) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
(-.f64 (cos.f64 phi1) (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))
(+.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
(sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 phi1))
(cos.f64 phi1)
phi1
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
(*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(+.f64 (.f64 (.f64 #s(literal 0 binary64) (sin.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (.f64 (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi2)))
(+.f64 (.f64 (cos.f64 phi2) (.f64 #s(literal 0 binary64) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi2) (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 0 binary64) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 0 binary64) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 (.f64 #s(literal 0 binary64) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal 0 binary64) (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 0 binary64) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 0 binary64) (sin.f64 (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (.f64 #s(literal 0 binary64) (sin.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(-.f64 (.f64 #s(literal 0 binary64) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1 binary64)))
(cos.f64 (neg.f64 (-.f64 lambda1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 0 binary64) (sin.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 #s(literal 0 binary64) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1 binary64) (cos.f64 (-.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))) (+.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 lambda2 lambda2) (*.f64 lambda1 lambda2))))
(-.f64 lambda1 lambda2)
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) lambda1)
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 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)) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 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)) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 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)) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
(*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (sin.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (cos.f64 lambda1)))) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (cos.f64 lambda1))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (+.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (*.f64 (sin.f64 lambda2) (cos.f64 lambda1))))))
(sin.f64 (-.f64 lambda1 lambda2))
(-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (cos.f64 lambda1)))
(+.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 lambda2)))
(/.f64 (-.f64 (.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64)))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) (-.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
(/.f64 (+.f64 (pow.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) (.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
(-.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
(+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (*.f64 phi1 phi1)) #s(literal 1 binary64))))
#s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64)))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1))) #s(literal 1 binary64)) (-.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (*.f64 phi1 phi1)) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)))) (-.f64 #s(literal 1 binary64) (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (*.f64 phi1 phi1))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 3 binary64)) #s(literal 1 binary64)) (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1))) (.f64 #s(literal 1 binary64) (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1))))))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 phi1 phi1)) (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64))))
(+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)))
(.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) phi1) phi1)
(.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1))
(.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1)) #s(literal 1/4 binary64)) (+.f64 (.f64 (.f64 (+.f64 (.f64 (*.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (+.f64 (.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1)) (+.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)))))
(-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64))
(.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1)
(.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) (.f64 phi1 phi1))
(.f64 (.f64 phi1 phi1) (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)))
(+.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) (.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) (.f64 phi1 phi1)))
(+.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) (.f64 (.f64 phi1 phi1) (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64))))
(/.f64 (-.f64 #s(literal 1/576 binary64) (.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)))) (-.f64 #s(literal 1/24 binary64) (.f64 (*.f64 phi1 phi1) #s(literal -1/720 binary64))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64))) #s(literal 1/576 binary64)) (-.f64 (.f64 (*.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)))
(/.f64 (+.f64 #s(literal 1/13824 binary64) (pow.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 1/576 binary64) (-.f64 (.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 3 binary64)) #s(literal 1/13824 binary64)) (+.f64 (.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64))) (-.f64 #s(literal 1/576 binary64) (.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)))))
(-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/720 binary64) (.f64 phi1 phi1)))
(+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64))
(+.f64 #s(literal 1/24 binary64) (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)))
(.f64 (.f64 #s(literal -1/720 binary64) phi1) phi1)
(.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64))
(.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1))
#s(literal -1/720 binary64)
(*.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)))
(*.f64 (fabs.f64 phi1) (fabs.f64 phi1))
(*.f64 (neg.f64 phi1) (neg.f64 phi1))
(*.f64 phi1 phi1)
(pow.f64 phi1 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 phi1) #s(literal 2 binary64)))
#s(literal 1/24 binary64)
#s(literal 1/2 binary64)
#s(literal 1 binary64)
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (+ (cos phi1) ( (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (+ (cos phi1) ( (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (+ (cos phi1) ( (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (+ (cos phi1) ( (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (+ (cos phi1) ( (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (+ (cos phi1) ( (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
(/.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi1)) (.f64 (+.f64 (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 (cos.f64 phi1) (+.f64 (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))) (.f64 (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (+.f64 (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 phi1) (cos.f64 phi1)) (-.f64 (.f64 (+.f64 (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi1) (+.f64 (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))))
(/.f64 (+.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (+.f64 (.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))) (-.f64 (.f64 (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
(-.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (neg.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (+.f64 (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))
(+.f64 (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))
(+.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 phi1) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (cos.f64 phi1) (+.f64 (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(literal 2 binary64) (.f64 (cos.f64 (/.f64 (+.f64 phi1 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
(.f64 #s(literal 2 binary64) (.f64 (cos.f64 (/.f64 (+.f64 (-.f64 lambda1 lambda2) phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 (-.f64 lambda1 lambda2) phi1) #s(literal 2 binary64)))))
(/.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
(/.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi1))) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))
(/.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 phi1) (cos.f64 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
(/.f64 (+.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))
(+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (.f64 (*.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal -1/2 binary64))
(.f64 (.f64 phi2 phi2) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(literal -1/2 binary64) (.f64 (*.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)))
(.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64))
(.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2))
(.f64 phi2 (.f64 phi2 #s(literal -1/2 binary64)))
(*.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)))
(*.f64 (fabs.f64 phi2) (fabs.f64 phi2))
(*.f64 (neg.f64 phi2) (neg.f64 phi2))
(*.f64 phi2 phi2)
(pow.f64 phi2 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 phi2) #s(literal 2 binary64)))
#s(literal -1/2 binary64)
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
(/.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
(/.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 phi1) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
(-.f64 (cos.f64 phi1) (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))
(+.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
(*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(+.f64 (.f64 (.f64 #s(literal 0 binary64) (sin.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (.f64 (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi2)))
(+.f64 (.f64 (cos.f64 phi2) (.f64 #s(literal 0 binary64) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi2) (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 0 binary64) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 0 binary64) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 (.f64 #s(literal 0 binary64) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal 0 binary64) (sin.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 0 binary64) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 0 binary64) (sin.f64 (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (.f64 #s(literal 0 binary64) (sin.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(-.f64 (.f64 #s(literal 0 binary64) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1 binary64)))
(cos.f64 (neg.f64 (-.f64 lambda1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 0 binary64) (sin.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 #s(literal 0 binary64) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 #s(literal 0 binary64) (sin.f64 (-.f64 lambda1 lambda2)))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
#s(literal 0 binary64)
(/.f64 (neg.f64 (PI.f64)) #s(literal -2 binary64))
(/.f64 (PI.f64) #s(literal 2 binary64))
(PI.f64)
#s(literal 2 binary64)
(*.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64))
#s(literal 1 binary64)
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (+.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) lambda1))
#s(approx lambda1 lambda1)
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (neg.f64 (*.f64 (sin.f64 lambda2) (cos.f64 phi2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 (.f64 lambda1 (cos.f64 phi2)) (cos.f64 lambda2)) (neg.f64 (*.f64 (sin.f64 lambda2) (cos.f64 phi2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 (sin.f64 lambda2) (cos.f64 phi2)))) lambda1) (neg.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (sin.f64 lambda2)) (.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi2)))) lambda1)) lambda1) (neg.f64 (*.f64 (sin.f64 lambda2) (cos.f64 phi2)))))
#s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))
#s(approx (sin (- lambda1 lambda2)) (-.f64 (*.f64 (cos.f64 lambda2) lambda1) (sin.f64 lambda2)))
#s(approx (sin (- lambda1 lambda2)) (-.f64 (.f64 (-.f64 (cos.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 lambda2) lambda1))) lambda1) (sin.f64 lambda2)))
#s(approx (sin (- lambda1 lambda2)) (-.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64)) (*.f64 (sin.f64 lambda2) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2)) lambda1) (sin.f64 lambda2)))
#s(approx (* (sin lambda1) (cos lambda2)) (*.f64 (cos.f64 lambda2) lambda1))
#s(approx (* (sin lambda1) (cos lambda2)) (.f64 (+.f64 (.f64 (.f64 (.f64 lambda1 lambda1) #s(literal -1/6 binary64)) (cos.f64 lambda2)) (cos.f64 lambda2)) lambda1))
#s(approx (* (sin lambda1) (cos lambda2)) (.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal 1/120 binary64) (.f64 lambda1 lambda1)) (cos.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (cos.f64 lambda2))) (*.f64 lambda1 lambda1)) (cos.f64 lambda2)) lambda1))
#s(approx (* (sin lambda1) (cos lambda2)) (.f64 (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal -1/5040 binary64) (.f64 lambda1 lambda1)) (cos.f64 lambda2)) (.f64 #s(literal -1/120 binary64) (cos.f64 lambda2))) (.f64 lambda1 lambda1)) (.f64 #s(literal -1/6 binary64) (cos.f64 lambda2))) (.f64 lambda1 lambda1)) (cos.f64 lambda2)) lambda1))
#s(approx (sin lambda1) lambda1)
#s(approx (sin lambda1) (.f64 (+.f64 (.f64 (*.f64 lambda1 lambda1) #s(literal -1/6 binary64)) #s(literal 1 binary64)) lambda1))
#s(approx (sin lambda1) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 lambda1 lambda1)) #s(literal 1/6 binary64)) (*.f64 lambda1 lambda1)) #s(literal 1 binary64)) lambda1))
#s(approx (sin lambda1) (.f64 (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 lambda1 lambda1)) #s(literal 1/120 binary64)) (.f64 lambda1 lambda1)) #s(literal 1/6 binary64)) (*.f64 lambda1 lambda1)) #s(literal 1 binary64)) lambda1))
#s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))
#s(approx (* (cos lambda1) (sin lambda2)) (+.f64 (.f64 (.f64 (*.f64 lambda1 lambda1) #s(literal -1/2 binary64)) (sin.f64 lambda2)) (sin.f64 lambda2)))
#s(approx (* (cos lambda1) (sin lambda2)) (+.f64 (.f64 (+.f64 (.f64 (.f64 (.f64 lambda1 lambda1) #s(literal 1/24 binary64)) (sin.f64 lambda2)) (.f64 (sin.f64 lambda2) #s(literal -1/2 binary64))) (.f64 lambda1 lambda1)) (sin.f64 lambda2)))
#s(approx (* (cos lambda1) (sin lambda2)) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 (.f64 lambda1 lambda1) #s(literal -1/720 binary64)) (sin.f64 lambda2)) (.f64 #s(literal -1/24 binary64) (sin.f64 lambda2))) (.f64 lambda1 lambda1)) (.f64 (sin.f64 lambda2) #s(literal -1/2 binary64))) (*.f64 lambda1 lambda1)) (sin.f64 lambda2)))
#s(approx (cos lambda1) #s(literal 1 binary64))
#s(approx (cos lambda1) (+.f64 (.f64 (.f64 lambda1 lambda1) #s(literal -1/2 binary64)) #s(literal 1 binary64)))
#s(approx (cos lambda1) (+.f64 (.f64 (-.f64 (.f64 (.f64 lambda1 lambda1) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 lambda1 lambda1)) #s(literal 1 binary64)))
#s(approx (cos lambda1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 (.f64 lambda1 lambda1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) (.f64 lambda1 lambda1)) #s(literal 1/2 binary64)) (.f64 lambda1 lambda1)) #s(literal 1 binary64)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (+.f64 (cos.f64 phi1) (.f64 (neg.f64 lambda1) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (+.f64 (cos.f64 phi1) (.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (neg.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))) lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (+.f64 (cos.f64 phi1) (.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2))) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (cos.f64 lambda2))) lambda1) (neg.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))) lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 (neg.f64 lambda1) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (neg.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))) lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2))) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (cos.f64 lambda2))) lambda1) (neg.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))) lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (cos.f64 lambda2))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (+.f64 (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (+.f64 (.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1) (cos.f64 lambda2)))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 (cos.f64 lambda2) #s(literal -1/2 binary64))) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1) (cos.f64 lambda2)))
#s(approx (- lambda1 lambda2) (neg.f64 lambda2))
#s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (+.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) lambda1))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 (.f64 lambda1 (cos.f64 phi2)) (cos.f64 lambda2)) (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 (+.f64 (.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 (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2))) (.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi2)))) 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)) (+.f64 (neg.f64 (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) lambda1)))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (.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)) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (neg.f64 (sin.f64 lambda2)) #s(literal -1/2 binary64)) (.f64 #s(literal 1/6 binary64) (*.f64 (cos.f64 lambda2) lambda1))) lambda1) (cos.f64 lambda2)) lambda1) (neg.f64 (sin.f64 lambda2))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 lambda2)) (cos.f64 lambda2)) (cos.f64 phi1)))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (cos.f64 lambda2) (cos.f64 phi1)) (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)) (neg.f64 (sin.f64 lambda2))) (neg.f64 (sin.f64 lambda2))) lambda1) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 lambda2)))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (cos.f64 lambda2) (cos.f64 phi1)) (+.f64 (.f64 (-.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi2 phi2)) (cos.f64 lambda2)) (.f64 (cos.f64 lambda2) #s(literal -1/2 binary64))) lambda1) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)) (neg.f64 (sin.f64 lambda2)))) (neg.f64 (sin.f64 lambda2))) lambda1) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 lambda2)))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (cos.f64 lambda2) (cos.f64 phi1)) (+.f64 (.f64 (-.f64 (+.f64 (.f64 (+.f64 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi2 phi2)) (cos.f64 lambda2)) (.f64 (cos.f64 lambda2) #s(literal -1/2 binary64))) (.f64 (-.f64 (.f64 (.f64 #s(literal -1/12 binary64) (.f64 phi2 phi2)) (neg.f64 (sin.f64 lambda2))) (.f64 (neg.f64 (sin.f64 lambda2)) #s(literal -1/6 binary64))) lambda1)) lambda1) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)) (neg.f64 (sin.f64 lambda2)))) (neg.f64 (sin.f64 lambda2))) lambda1) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 lambda2)))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) (+.f64 (cos.f64 lambda2) (cos.f64 phi1)))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) (+.f64 (+.f64 (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)) (cos.f64 phi1)))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) (+.f64 (+.f64 (cos.f64 lambda2) (cos.f64 phi1)) (.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1)))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) (+.f64 (+.f64 (cos.f64 lambda2) (cos.f64 phi1)) (.f64 (-.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 (cos.f64 lambda2) #s(literal -1/2 binary64))) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1)))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 lambda2)))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 (.f64 phi2 phi2) (neg.f64 (sin.f64 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 lambda2))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) lambda1) (.f64 (.f64 phi2 phi2) (cos.f64 lambda2))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)) (neg.f64 (sin.f64 lambda2)))) lambda1) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 lambda2))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (+.f64 (.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal -1/12 binary64) lambda1) (.f64 (.f64 phi2 phi2) (neg.f64 (sin.f64 lambda2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi2 phi2)) (cos.f64 lambda2))) lambda1) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)) (neg.f64 (sin.f64 lambda2)))) lambda1) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 lambda2))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2)) (cos.f64 phi1))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (+.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2)) (cos.f64 phi1))) lambda1))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2)) (cos.f64 phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (.f64 (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2))) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (+.f64 (.f64 (.f64 lambda1 (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2)) (neg.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2)))))) (.f64 (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2))) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2))) (cos.f64 phi2))) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 lambda1 (cos.f64 phi2)) (.f64 #s(literal -1/2 binary64) (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2))))) (.f64 (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2)) (neg.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2))))) (cos.f64 phi2))) lambda1) (.f64 (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2))) (cos.f64 phi2))) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (+.f64 (cos.f64 phi1) (.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 lambda1 (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) (neg.f64 (sin.f64 lambda2))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 lambda2)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2)))) (cos.f64 phi2))) lambda1) (.f64 (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2)) (neg.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2))))) (cos.f64 phi2))) lambda1)) (.f64 (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2))) (cos.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2))) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2))) (cos.f64 phi2)))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 (.f64 lambda1 (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2)) (neg.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2)))))) (.f64 (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2))) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2))) (cos.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 (+.f64 (.f64 (.f64 lambda1 (cos.f64 phi2)) (.f64 #s(literal -1/2 binary64) (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2))))) (.f64 (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2)) (neg.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2))))) (cos.f64 phi2))) lambda1) (.f64 (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2))) (cos.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 lambda1 (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) (neg.f64 (sin.f64 lambda2))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 lambda2)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2)))) (cos.f64 phi2))) lambda1) (.f64 (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2)) (neg.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2))))) (cos.f64 phi2))) lambda1) (.f64 (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2))) (cos.f64 phi2))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (+.f64 (.f64 (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2)) (neg.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2))))) lambda1) (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2))) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2)))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (+.f64 (.f64 (+.f64 (+.f64 (neg.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2)))) (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2)))) lambda1)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2))) lambda1) (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2))) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2)))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (+.f64 (.f64 (+.f64 (+.f64 (neg.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2)))) (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2)))) (.f64 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) (neg.f64 (sin.f64 lambda2))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 lambda2)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) lambda1)) lambda1)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2))) lambda1) (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2))))
#s(approx (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (+.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2)))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2))) lambda1) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (+.f64 (.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2))) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2))) #s(literal -1/2 binary64))) lambda1) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2))) lambda1) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2)))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (+.f64 (.f64 (neg.f64 lambda1) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2)))) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2))) (neg.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2))))) lambda1) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (+.f64 (.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2)))) (.f64 (.f64 (cos.f64 lambda2) #s(literal -1/2 binary64)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) lambda1) (neg.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 lambda2))))) lambda1) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda2))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) lambda1) #s(literal 1 binary64)) lambda1))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (sin lambda1) (cos lambda2)) (*.f64 (cos.f64 lambda2) (sin.f64 lambda1)))
#s(approx (sin lambda1) (sin.f64 lambda1))
#s(approx (* (cos lambda1) (sin lambda2)) (*.f64 (sin.f64 lambda2) (cos.f64 lambda1)))
#s(approx (cos lambda1) (cos.f64 lambda1))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (- lambda1 lambda2) lambda1)
#s(approx (- lambda1 lambda2) (*.f64 (+.f64 (/.f64 (neg.f64 lambda2) lambda1) #s(literal 1 binary64)) lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) lambda1) #s(literal 1 binary64)) lambda1))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (-.f64 lambda1 lambda2)))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2)) (cos.f64 phi1))) lambda1) #s(literal 1 binary64)) lambda1))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (.f64 (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2)) (cos.f64 phi1)))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2)))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (.f64 (neg.f64 lambda1) (-.f64 (neg.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 (+.f64 (neg.f64 lambda1) lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) lambda1)) #s(literal 1 binary64))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (+.f64 (neg.f64 lambda1) lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (*.f64 (cos.f64 (+.f64 (neg.f64 lambda1) lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (*.f64 (cos.f64 (+.f64 (neg.f64 lambda1) lambda2)) (cos.f64 phi2)))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (cos.f64 (+.f64 (neg.f64 lambda1) lambda2)))
#s(approx (- lambda1 lambda2) (*.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (.f64 (neg.f64 lambda1) (-.f64 (neg.f64 (/.f64 (atan2.f64 (.f64 (neg.f64 (sin.f64 (+.f64 (neg.f64 lambda1) lambda2))) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 (+.f64 (neg.f64 lambda1) lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) lambda1)) #s(literal 1 binary64))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (atan2.f64 (.f64 (neg.f64 (sin.f64 (+.f64 (neg.f64 lambda1) lambda2))) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (+.f64 (neg.f64 lambda1) lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (*.f64 (neg.f64 (sin.f64 (+.f64 (neg.f64 lambda1) lambda2))) (cos.f64 phi2)))
#s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 (+.f64 (neg.f64 lambda1) lambda2))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 lambda1) lambda2)) (cos.f64 phi1)) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (+.f64 (neg.f64 lambda1) lambda2)))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) (+.f64 (cos.f64 (+.f64 (neg.f64 lambda1) lambda2)) (cos.f64 phi1)))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (+.f64 (neg.f64 lambda1) lambda2))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (.f64 (neg.f64 lambda1) (-.f64 (neg.f64 (/.f64 (atan2.f64 (.f64 (neg.f64 (sin.f64 (+.f64 (neg.f64 lambda1) lambda2))) (cos.f64 phi2)) (+.f64 (.f64 (+.f64 (.f64 (neg.f64 (sin.f64 (+.f64 (neg.f64 lambda1) lambda2))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (+.f64 (neg.f64 lambda1) lambda2)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 phi2)) (cos.f64 phi1))) lambda1)) #s(literal 1 binary64))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (atan2.f64 (.f64 (neg.f64 (sin.f64 (+.f64 (neg.f64 lambda1) lambda2))) (cos.f64 phi2)) (+.f64 (.f64 (+.f64 (.f64 (neg.f64 (sin.f64 (+.f64 (neg.f64 lambda1) lambda2))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (+.f64 (neg.f64 lambda1) lambda2)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 phi2)) (cos.f64 phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (.f64 (+.f64 (.f64 (neg.f64 (sin.f64 (+.f64 (neg.f64 lambda1) lambda2))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (+.f64 (neg.f64 lambda1) lambda2)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 phi2)) (cos.f64 phi1)))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (+.f64 (.f64 (neg.f64 (sin.f64 (+.f64 (neg.f64 lambda1) lambda2))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (+.f64 (neg.f64 lambda1) lambda2)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 phi2)))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (+.f64 (.f64 (neg.f64 (sin.f64 (+.f64 (neg.f64 lambda1) lambda2))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (+.f64 (neg.f64 lambda1) lambda2)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (.f64 (neg.f64 (sin.f64 (+.f64 (neg.f64 lambda1) lambda2))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (.f64 (cos.f64 (+.f64 (neg.f64 lambda1) lambda2)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (*.f64 (sin.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 (neg.f64 lambda2) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (*.f64 (sin.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 (+.f64 (.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 (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 (+.f64 (.f64 (+.f64 (.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) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2))) lambda2) (*.f64 (sin.f64 lambda1) (cos.f64 phi2))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (*.f64 (neg.f64 lambda2) (cos.f64 lambda1)) (sin.f64 lambda1)))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (.f64 (-.f64 (.f64 (*.f64 (sin.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (cos.f64 lambda1)) lambda2) (sin.f64 lambda1)))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (.f64 (-.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) #s(literal -1/2 binary64)) (.f64 #s(literal -1/6 binary64) (*.f64 (cos.f64 lambda1) lambda2))) lambda2) (cos.f64 lambda1)) lambda2) (sin.f64 lambda1)))
#s(approx (* (sin lambda1) (cos lambda2)) (sin.f64 lambda1))
#s(approx (* (sin lambda1) (cos lambda2)) (+.f64 (.f64 (.f64 (*.f64 lambda2 lambda2) #s(literal -1/2 binary64)) (sin.f64 lambda1)) (sin.f64 lambda1)))
#s(approx (* (sin lambda1) (cos lambda2)) (+.f64 (.f64 (+.f64 (.f64 (.f64 (.f64 lambda2 lambda2) #s(literal 1/24 binary64)) (sin.f64 lambda1)) (.f64 (sin.f64 lambda1) #s(literal -1/2 binary64))) (.f64 lambda2 lambda2)) (sin.f64 lambda1)))
#s(approx (* (sin lambda1) (cos lambda2)) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 (.f64 lambda2 lambda2) #s(literal -1/720 binary64)) (sin.f64 lambda1)) (.f64 #s(literal -1/24 binary64) (sin.f64 lambda1))) (.f64 lambda2 lambda2)) (.f64 (sin.f64 lambda1) #s(literal -1/2 binary64))) (*.f64 lambda2 lambda2)) (sin.f64 lambda1)))
#s(approx (cos lambda2) #s(literal 1 binary64))
#s(approx (cos lambda2) (+.f64 (.f64 (.f64 lambda2 lambda2) #s(literal -1/2 binary64)) #s(literal 1 binary64)))
#s(approx (cos lambda2) (+.f64 (.f64 (-.f64 (.f64 (.f64 lambda2 lambda2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 lambda2 lambda2)) #s(literal 1 binary64)))
#s(approx (cos lambda2) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 (.f64 lambda2 lambda2) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) (.f64 lambda2 lambda2)) #s(literal 1/2 binary64)) (.f64 lambda2 lambda2)) #s(literal 1 binary64)))
#s(approx lambda2 lambda2)
#s(approx (* (cos lambda1) (sin lambda2)) (*.f64 (cos.f64 lambda1) lambda2))
#s(approx (* (cos lambda1) (sin lambda2)) (.f64 (+.f64 (.f64 (.f64 (.f64 lambda2 lambda2) #s(literal -1/6 binary64)) (cos.f64 lambda1)) (cos.f64 lambda1)) lambda2))
#s(approx (* (cos lambda1) (sin lambda2)) (.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 (.f64 lambda2 lambda2) #s(literal 1/120 binary64)) (cos.f64 lambda1)) (.f64 #s(literal -1/6 binary64) (cos.f64 lambda1))) (*.f64 lambda2 lambda2)) (cos.f64 lambda1)) lambda2))
#s(approx (* (cos lambda1) (sin lambda2)) (.f64 (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 (.f64 lambda2 lambda2) #s(literal -1/5040 binary64)) (cos.f64 lambda1)) (.f64 #s(literal -1/120 binary64) (cos.f64 lambda1))) (.f64 lambda2 lambda2)) (.f64 #s(literal -1/6 binary64) (cos.f64 lambda1))) (.f64 lambda2 lambda2)) (cos.f64 lambda1)) lambda2))
#s(approx (sin lambda2) lambda2)
#s(approx (sin lambda2) (.f64 (+.f64 (.f64 (*.f64 lambda2 lambda2) #s(literal -1/6 binary64)) #s(literal 1 binary64)) lambda2))
#s(approx (sin lambda2) (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 lambda2 lambda2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (*.f64 lambda2 lambda2)) #s(literal 1 binary64)) lambda2))
#s(approx (sin lambda2) (.f64 (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 (.f64 lambda2 lambda2) #s(literal -1/5040 binary64)) #s(literal 1/120 binary64)) (.f64 lambda2 lambda2)) #s(literal 1/6 binary64)) (*.f64 lambda2 lambda2)) #s(literal 1 binary64)) lambda2))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (+.f64 (cos.f64 phi1) (.f64 (.f64 lambda2 (cos.f64 phi2)) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 (sin.f64 lambda1) (cos.f64 phi2))) lambda2) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (+.f64 (cos.f64 phi1) (.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal -1/6 binary64) lambda2) (.f64 (sin.f64 lambda1) (cos.f64 phi2))) (.f64 (.f64 (cos.f64 lambda1) #s(literal -1/2 binary64)) (cos.f64 phi2))) lambda2) (.f64 (sin.f64 lambda1) (cos.f64 phi2))) lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 (.f64 lambda2 (cos.f64 phi2)) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 (sin.f64 lambda1) (cos.f64 phi2))) lambda2) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal -1/6 binary64) lambda2) (.f64 (sin.f64 lambda1) (cos.f64 phi2))) (.f64 (.f64 (cos.f64 lambda1) #s(literal -1/2 binary64)) (cos.f64 phi2))) lambda2) (.f64 (sin.f64 lambda1) (cos.f64 phi2))) lambda2) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (cos.f64 lambda1))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (+.f64 (*.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1)))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (+.f64 (.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) lambda2) (cos.f64 lambda1)))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (+.f64 (.f64 (-.f64 (.f64 (-.f64 (.f64 (cos.f64 lambda1) #s(literal -1/2 binary64)) (.f64 #s(literal 1/6 binary64) (*.f64 (sin.f64 lambda1) lambda2))) lambda2) (neg.f64 (sin.f64 lambda1))) lambda2) (cos.f64 lambda1)))
#s(approx (- lambda1 lambda2) (+.f64 (neg.f64 lambda2) lambda1))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (*.f64 (sin.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 (neg.f64 lambda2) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (*.f64 (sin.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 (+.f64 (.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 (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 (+.f64 (.f64 (+.f64 (.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) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2))) lambda2) (*.f64 (sin.f64 lambda1) (cos.f64 phi2))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (*.f64 (neg.f64 lambda2) (cos.f64 lambda1)) (sin.f64 lambda1)))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (.f64 (-.f64 (neg.f64 (cos.f64 lambda1)) (.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 lambda1) lambda2))) lambda2) (sin.f64 lambda1)))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (-.f64 (.f64 (sin.f64 lambda1) #s(literal -1/2 binary64)) (.f64 #s(literal -1/6 binary64) (*.f64 (cos.f64 lambda1) lambda2))) lambda2)) lambda2) (sin.f64 lambda1)))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 lambda1)))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (cos.f64 lambda1) (cos.f64 phi1)) (+.f64 (.f64 (-.f64 (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (sin.f64 lambda1)) (neg.f64 (sin.f64 lambda1))) lambda2) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 lambda1)))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (cos.f64 lambda1) (cos.f64 phi1)) (+.f64 (.f64 (-.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi2 phi2)) (cos.f64 lambda1)) (.f64 (cos.f64 lambda1) #s(literal -1/2 binary64))) lambda2) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (sin.f64 lambda1))) (neg.f64 (sin.f64 lambda1))) lambda2) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 lambda1)))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (cos.f64 lambda1) (cos.f64 phi1)) (+.f64 (.f64 (-.f64 (+.f64 (.f64 (+.f64 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi2 phi2)) (cos.f64 lambda1)) (.f64 (cos.f64 lambda1) #s(literal -1/2 binary64))) (.f64 (-.f64 (.f64 (.f64 #s(literal 1/12 binary64) (.f64 phi2 phi2)) (sin.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (sin.f64 lambda1))) lambda2)) lambda2) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (sin.f64 lambda1))) (neg.f64 (sin.f64 lambda1))) lambda2) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 lambda1)))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1)))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) (+.f64 (+.f64 (*.f64 (sin.f64 lambda1) lambda2) (cos.f64 phi1)) (cos.f64 lambda1)))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) (+.f64 (+.f64 (cos.f64 lambda1) (cos.f64 phi1)) (.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))) lambda2)))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) (+.f64 (+.f64 (cos.f64 lambda1) (cos.f64 phi1)) (.f64 (-.f64 (.f64 (-.f64 (.f64 (cos.f64 lambda1) #s(literal -1/2 binary64)) (.f64 #s(literal 1/6 binary64) (*.f64 (sin.f64 lambda1) lambda2))) lambda2) (neg.f64 (sin.f64 lambda1))) lambda2)))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 lambda1)))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (+.f64 (.f64 (.f64 lambda2 (.f64 phi2 phi2)) (sin.f64 lambda1)) (.f64 (.f64 phi2 phi2) (cos.f64 lambda1)))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) lambda2) (.f64 (.f64 phi2 phi2) (cos.f64 lambda1))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (sin.f64 lambda1))) lambda2) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 lambda1))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (+.f64 (.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal 1/12 binary64) lambda2) (.f64 (.f64 phi2 phi2) (sin.f64 lambda1))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi2 phi2)) (cos.f64 lambda1))) lambda2) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (sin.f64 lambda1))) lambda2) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 lambda1))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (.f64 (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda1))) (cos.f64 phi2)) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (+.f64 (.f64 (.f64 lambda2 (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (.f64 (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda1))) (cos.f64 phi2))) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 lambda2 (cos.f64 phi2)) (.f64 #s(literal -1/2 binary64) (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda1))))) (.f64 (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 phi2))) lambda2) (.f64 (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda1))) (cos.f64 phi2))) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (+.f64 (cos.f64 phi1) (.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 lambda2 (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) (cos.f64 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda1)))) (cos.f64 phi2))) lambda2) (.f64 (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 phi2))) lambda2)) (.f64 (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda1))) (cos.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda1))) (cos.f64 phi2)))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 (.f64 lambda2 (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (.f64 (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda1))) (cos.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 (+.f64 (.f64 (.f64 lambda2 (cos.f64 phi2)) (.f64 #s(literal -1/2 binary64) (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda1))))) (.f64 (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 phi2))) lambda2) (.f64 (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda1))) (cos.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 lambda2 (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) (cos.f64 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda1)))) (cos.f64 phi2))) lambda2) (.f64 (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 phi2))) lambda2) (.f64 (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda1))) (cos.f64 phi2))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda1))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (+.f64 (.f64 (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) lambda2) (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda1)))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (+.f64 (.f64 (+.f64 (+.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (.f64 #s(literal -1/2 binary64) (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda1)))) lambda2)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1))) lambda2) (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda1)))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (+.f64 (.f64 (+.f64 (+.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda1)))) (.f64 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) (cos.f64 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) lambda2)) lambda2)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1))) lambda2) (+.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda1)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)))
#s(approx (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (+.f64 (.f64 (neg.f64 lambda2) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda1))) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1))))
#s(approx (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1))) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) lambda2) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1))))
#s(approx (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (+.f64 (.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda2) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda1))) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1)) #s(literal -1/2 binary64))) lambda2) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) lambda2) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda1)))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (+.f64 (.f64 (.f64 (sin.f64 lambda1) lambda2) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda1))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1))) lambda2) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (+.f64 (.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal -1/6 binary64) lambda2) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda1) #s(literal -1/2 binary64)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) lambda2) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 lambda1))) lambda2) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 lambda1))))
#s(approx (cos lambda2) (cos.f64 lambda2))
#s(approx (sin lambda2) (sin.f64 lambda2))
#s(approx (- lambda1 lambda2) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (+.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (+.f64 (neg.f64 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) lambda1))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (+.f64 (neg.f64 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (*.f64 (cos.f64 (+.f64 (neg.f64 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (*.f64 (cos.f64 (+.f64 (neg.f64 lambda2) lambda1)) (cos.f64 phi2)))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (cos.f64 (+.f64 (neg.f64 lambda2) lambda1)))
#s(approx (- lambda1 lambda2) (*.f64 (neg.f64 lambda2) (+.f64 (/.f64 (neg.f64 lambda1) lambda2) #s(literal 1 binary64))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (+.f64 (atan2.f64 (.f64 (sin.f64 (+.f64 (neg.f64 lambda2) lambda1)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (+.f64 (neg.f64 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1))) lambda1))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (atan2.f64 (.f64 (sin.f64 (+.f64 (neg.f64 lambda2) lambda1)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (+.f64 (neg.f64 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (*.f64 (sin.f64 (+.f64 (neg.f64 lambda2) lambda1)) (cos.f64 phi2)))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 lambda2) lambda1)))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 lambda2) lambda1)) (cos.f64 phi1)) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (+.f64 (neg.f64 lambda2) lambda1)))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) (+.f64 (cos.f64 (+.f64 (neg.f64 lambda2) lambda1)) (cos.f64 phi1)))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (+.f64 (neg.f64 lambda2) lambda1))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (+.f64 (atan2.f64 (.f64 (sin.f64 (+.f64 (neg.f64 lambda2) lambda1)) (cos.f64 phi2)) (+.f64 (.f64 (+.f64 (.f64 (cos.f64 (+.f64 (neg.f64 lambda2) lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (sin.f64 (+.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 phi2)) (cos.f64 phi1))) lambda1))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (atan2.f64 (.f64 (sin.f64 (+.f64 (neg.f64 lambda2) lambda1)) (cos.f64 phi2)) (+.f64 (.f64 (+.f64 (.f64 (cos.f64 (+.f64 (neg.f64 lambda2) lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (sin.f64 (+.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 phi2)) (cos.f64 phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (.f64 (+.f64 (.f64 (cos.f64 (+.f64 (neg.f64 lambda2) lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (sin.f64 (+.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 phi2)) (cos.f64 phi1)))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (+.f64 (.f64 (cos.f64 (+.f64 (neg.f64 lambda2) lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (sin.f64 (+.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 phi2)))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (+.f64 (.f64 (cos.f64 (+.f64 (neg.f64 lambda2) lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (sin.f64 (+.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 lambda2) lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (.f64 (cos.f64 (+.f64 (neg.f64 lambda2) lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)) #s(literal 1 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (+.f64 #s(literal 1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (+.f64 #s(literal 1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (*.f64 phi1 phi1))))
#s(approx (cos phi1) #s(literal 1 binary64))
#s(approx (cos phi1) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)) #s(literal 1 binary64)))
#s(approx (cos phi1) (+.f64 (.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) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64)))
#s(approx phi1 phi1)
#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 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)) #s(literal 1 binary64)))
#s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (+.f64 (.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 (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64)))
#s(approx (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)))
#s(approx (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1)))
#s(approx (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)))
#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) (.f64 phi1 phi1)) #s(literal 1/2 binary64)))
#s(approx (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)))
#s(approx (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)))
#s(approx (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1))
#s(approx (+ (* -1/720 (* phi1 phi1)) 1/24) #s(literal 1/24 binary64))
#s(approx (+ (* -1/720 (* phi1 phi1)) 1/24) (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)))
#s(approx (* -1/720 (* phi1 phi1)) (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)))
#s(approx (* phi1 phi1) (*.f64 phi1 phi1))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (+.f64 (.f64 (.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi1 phi1)))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) (+.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 phi1))) #s(literal 1 binary64)))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) (+.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) (+.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (.f64 (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2)) #s(literal 1 binary64)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)) #s(literal 1 binary64)) (.f64 (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) (.f64 (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2))) #s(literal 1 binary64)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) (.f64 (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2))) #s(literal 1 binary64)))
#s(approx (cos phi1) (cos.f64 phi1))
#s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (*.f64 (pow.f64 phi1 #s(literal 6 binary64)) #s(literal -1/720 binary64)))
#s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (.f64 (-.f64 (.f64 (pow.f64 phi1 #s(literal -2 binary64)) #s(literal 1/24 binary64)) #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 (-.f64 (-.f64 (.f64 (pow.f64 phi1 #s(literal -2 binary64)) #s(literal 1/24 binary64)) #s(literal 1/720 binary64)) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi1 #s(literal 4 binary64)))) (pow.f64 phi1 #s(literal 6 binary64))))
#s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (.f64 (-.f64 (+.f64 (pow.f64 phi1 #s(literal -6 binary64)) (.f64 (pow.f64 phi1 #s(literal -2 binary64)) #s(literal 1/24 binary64))) (+.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 phi1 #s(literal 4 binary64))) #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)) (*.f64 (pow.f64 phi1 #s(literal 6 binary64)) #s(literal -1/720 binary64)))
#s(approx (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) (.f64 (-.f64 (.f64 (pow.f64 phi1 #s(literal -2 binary64)) #s(literal 1/24 binary64)) #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)) (.f64 (-.f64 (-.f64 (.f64 (pow.f64 phi1 #s(literal -2 binary64)) #s(literal 1/24 binary64)) #s(literal 1/720 binary64)) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi1 #s(literal 4 binary64)))) (pow.f64 phi1 #s(literal 6 binary64))))
#s(approx (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (*.f64 (pow.f64 phi1 #s(literal 4 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 (pow.f64 phi1 #s(literal -2 binary64)) #s(literal 1/24 binary64)) #s(literal 1/720 binary64))))
#s(approx (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (.f64 (-.f64 (-.f64 (.f64 (pow.f64 phi1 #s(literal -2 binary64)) #s(literal 1/24 binary64)) #s(literal 1/720 binary64)) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi1 #s(literal 4 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)) #s(literal -1/720 binary64)))
#s(approx (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) (.f64 (pow.f64 phi1 #s(literal 4 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal -2 binary64)) #s(literal 1/24 binary64)) #s(literal 1/720 binary64))))
#s(approx (+ (* -1/720 (* phi1 phi1)) 1/24) (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)))
#s(approx (+ (* -1/720 (* phi1 phi1)) 1/24) (.f64 (-.f64 (.f64 (pow.f64 phi1 #s(literal -2 binary64)) #s(literal 1/24 binary64)) #s(literal 1/720 binary64)) (*.f64 phi1 phi1)))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (-.f64 (+.f64 (.f64 (+.f64 (.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)) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (.f64 (sin.f64 lambda2) (cos.f64 lambda1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (-.f64 (+.f64 (.f64 (+.f64 (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64)) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 phi2 phi2)) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 phi2 phi2)) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (*.f64 (sin.f64 lambda2) (cos.f64 lambda1))))
#s(approx (cos phi2) #s(literal 1 binary64))
#s(approx (cos phi2) (+.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) #s(literal 1 binary64)))
#s(approx (cos phi2) (+.f64 (.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) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 phi2 phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (+.f64 (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 phi2 phi2)) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 phi2 phi2))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 (+.f64 (.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 phi2 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 (+.f64 (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 phi2 phi2)) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 phi2 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 (+.f64 (.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 (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 (+.f64 (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/720 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 (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))
#s(approx (* (* phi2 phi2) -1/2) (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)))
#s(approx (* phi2 phi2) (*.f64 phi2 phi2))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (+.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (+.f64 (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2))))) (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2))))) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (+.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2))))) (.f64 (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64))) (.f64 phi2 phi2)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (+.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64)) (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/24 binary64) (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2)))))) (.f64 phi2 phi2)) (.f64 (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64))) (.f64 phi2 phi2)) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2))))) (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (+.f64 (.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2))))) (.f64 (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64))) (.f64 phi2 phi2))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64)) (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/24 binary64) (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2)))))) (.f64 phi2 phi2)) (.f64 (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64))) (*.f64 phi2 phi2))))
#s(approx (cos phi2) (cos.f64 phi2))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (+.f64 (/.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 phi2 phi2)) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 phi2 phi2)))

eval194.0ms (1.8%)

Memory: -10.2MiB live, 173.1MiB allocated; 22ms collecting garbage
Compiler: Compiled 42 659 to 4 321 computations (89.9% saved)

prune83.0ms (0.7%)

Memory

15.2MiB live, 112.9MiB allocated; 6ms collecting garbage

Pruning

47 alts after pruning (46 fresh and 1 done)

	Pruned	Kept	Total
New	816	32	848
Fresh	11	14	25
Picked	4	1	5
Done	0	0	0
Total	831	47	878

Accuracy

99.9%

Counts

878 → 47

Alt Table

Click to see full alt table

Status	Accuracy	Program
	66.3%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))))
	53.7%	(+.f64 (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 (.f64 lambda1 lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64)) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 3 binary64)) (+.f64 (.f64 lambda1 lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64)) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))))))
▶	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (+.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 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	89.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (+.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (cos.f64 lambda1))))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	98.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
	80.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))
	98.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (+.f64 (.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1) (cos.f64 lambda2)))))))
	98.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (+.f64 (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))))
	77.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (cos.f64 (-.f64 lambda1 lambda2))))))
	81.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	98.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	93.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64))) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
	58.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64)))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) (-.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
	98.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))))))
	60.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (pow.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) (.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))))
	93.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))))
	98.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (+.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	98.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))))))
	81.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	80.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))
	98.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))))
	77.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
	75.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))
	83.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (+.f64 (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))))
	73.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 ( (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (cos.f64 (-.f64 lambda1 lambda2))))))
	79.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 #s(approx (+ ( -1/720 (* phi1 phi1)) 1/24) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	83.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64)) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	81.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(approx (+ ( (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	81.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (.f64 (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2)) #s(literal 1 binary64)))))
	77.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (/.f64 (+.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
▶	71.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
	72.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (/.f64 (+.f64 (-.f64 lambda1 lambda2) phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 (-.f64 lambda1 lambda2) phi1) #s(literal 2 binary64))))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
▶	61.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
	70.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	76.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (+.f64 (/.f64 (neg.f64 lambda2) lambda1) #s(literal 1 binary64)) lambda1)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	65.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	83.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) lambda1)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	67.6%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	68.1%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (+.f64 (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	74.0%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (+.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	67.9%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (+.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	74.7%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (+.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
	69.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	76.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	98.6%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) lambda1) #s(literal 1 binary64)) lambda1))
✓	56.4%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

Compiler

Compiled 4 424 to 2 525 computations (42.9% saved)

series102.0ms (0.9%)

Memory

23.0MiB live, 114.8MiB allocated; 6ms collecting garbage

Counts

73 → 364

Calls

Call 1

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

Outputs
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos 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) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx lambda1 #s(hole binary64 lambda1))
#s(approx (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos 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) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* (cos phi2) (sin lambda2)))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2))))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (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) (- (* (sin lambda1) (cos lambda2)) (* (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 (- (* (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 (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) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (cos phi1) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (* (cos phi2) (sin lambda2))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi2)))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* lambda1 (* (cos phi2) (sin lambda2)))))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (sin lambda2))) (* (cos lambda2) (cos phi2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi2)))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* lambda1 (* (cos phi2) (sin lambda2)))))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2)))))
#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) (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 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 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (neg lambda2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (neg lambda2)))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #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 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* 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 (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (neg lambda2)) (* -1/2 (* (pow phi2 2) (cos (neg lambda2))))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (neg lambda2)) (+ (* -1/2 (* (pow phi2 2) (cos (neg lambda2)))) (* lambda1 (- (* 1/2 (* (pow phi2 2) (sin (neg lambda2)))) (sin (neg lambda2)))))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (neg lambda2)) (+ (* -1/2 (* (pow phi2 2) (cos (neg lambda2)))) (* lambda1 (- (+ (* 1/2 (* (pow phi2 2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/4 (* (pow phi2 2) (cos (neg lambda2))))))) (sin (neg lambda2)))))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (neg lambda2)) (+ (* -1/2 (* (pow phi2 2) (cos (neg lambda2)))) (* lambda1 (- (+ (* 1/2 (* (pow phi2 2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (+ (* 1/4 (* (pow phi2 2) (cos (neg lambda2)))) (* lambda1 (- (* -1/12 (* (pow phi2 2) (sin (neg lambda2)))) (* -1/6 (sin (neg lambda2))))))))) (sin (neg lambda2)))))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1/2 (* (pow phi2 2) (cos (neg lambda2))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (cos (neg lambda2)))) (* 1/2 (* lambda1 (* (pow phi2 2) (sin (neg lambda2))))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (cos (neg lambda2)))) (* lambda1 (+ (* 1/4 (* lambda1 (* (pow phi2 2) (cos (neg lambda2))))) (* 1/2 (* (pow phi2 2) (sin (neg lambda2)))))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (cos (neg lambda2)))) (* lambda1 (+ (* 1/2 (* (pow phi2 2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/12 (* lambda1 (* (pow phi2 2) (sin (neg lambda2))))) (* 1/4 (* (pow phi2 2) (cos (neg lambda2)))))))))))
#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 (+ (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (cos (neg lambda2)))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))))))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) #s(hole binary64 (- (* lambda1 (cos lambda2)) (sin lambda2))))
#s(approx (* (cos lambda2) lambda1) #s(hole binary64 (* lambda1 (cos 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 (+ lambda1 (atan2 (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) (+ (cos 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) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (atan2 (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) (+ (cos 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) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) #s(hole binary64 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) #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 phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) #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 phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) #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 (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) lambda1)))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #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 (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) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (+ (* (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) (cos lambda2)) #s(hole binary64 (* (cos lambda1) (cos lambda2))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* (sin lambda1) (sin lambda2))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #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) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) #s(hole binary64 (* lambda1 (cos lambda2))))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* -1 (/ (sin lambda2) lambda1))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ lambda1 (atan2 (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)))))
#s(approx (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) #s(hole binary64 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) lambda1)) 1)))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #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) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (neg (+ lambda2 (* -1 lambda1)))) (* -1/2 (* (pow phi2 2) (cos (neg (+ lambda2 (* -1 lambda1))))))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1/2 (* (pow phi2 2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (+ lambda1 (atan2 (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) lambda1)) 1)))))
#s(approx (atan2 (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) (+ (cos 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) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) #s(hole binary64 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (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) (- (* (sin lambda1) (cos lambda2)) (* (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 (- (* (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 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 lambda2 #s(hole binary64 lambda2))
#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) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* 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 phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin 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) (cos lambda2)) (* (sin lambda1) (sin 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 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 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 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 phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 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) (sin (- lambda1 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 (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 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* 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 (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (* -1/2 (* (pow phi2 2) (cos lambda1)))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (+ (* -1/2 (* (pow phi2 2) (cos lambda1))) (* lambda2 (- (* -1/2 (* (pow phi2 2) (sin lambda1))) (* -1 (sin lambda1)))))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (+ (* -1/2 (* (pow phi2 2) (cos lambda1))) (* lambda2 (- (+ (* -1/2 (* (pow phi2 2) (sin lambda1))) (* lambda2 (+ (* -1/2 (cos lambda1)) (* 1/4 (* (pow phi2 2) (cos lambda1)))))) (* -1 (sin lambda1)))))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (+ (* -1/2 (* (pow phi2 2) (cos lambda1))) (* lambda2 (- (+ (* -1/2 (* (pow phi2 2) (sin lambda1))) (* lambda2 (+ (* -1/2 (cos lambda1)) (+ (* 1/4 (* (pow phi2 2) (cos lambda1))) (* lambda2 (- (* 1/12 (* (pow phi2 2) (sin lambda1))) (* 1/6 (sin lambda1)))))))) (* -1 (sin lambda1)))))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1/2 (* (pow phi2 2) (cos lambda1)))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda2 (* (pow phi2 2) (sin lambda1)))) (* -1/2 (* (pow phi2 2) (cos lambda1))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (cos lambda1))) (* lambda2 (+ (* -1/2 (* (pow phi2 2) (sin lambda1))) (* 1/4 (* lambda2 (* (pow phi2 2) (cos lambda1)))))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (cos lambda1))) (* lambda2 (+ (* -1/2 (* (pow phi2 2) (sin lambda1))) (* lambda2 (+ (* 1/12 (* lambda2 (* (pow phi2 2) (sin lambda1)))) (* 1/4 (* (pow phi2 2) (cos lambda1))))))))))
#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 (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (cos phi1))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (* lambda2 (sin lambda1))))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1))))))))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) #s(hole binary64 lambda1))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) #s(hole binary64 (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)))))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) #s(hole binary64 (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)))))
#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) #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 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 (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) #s(hole binary64 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) #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 phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) #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 phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) #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 (cos lambda2) #s(hole binary64 (cos lambda2)))
#s(approx (sin lambda2) #s(hole binary64 (sin lambda2)))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #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) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (+ lambda1 (* -1 lambda2))) (* -1/2 (* (pow phi2 2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1/2 (* (pow phi2 2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos phi1) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (+ lambda1 (atan2 (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (atan2 (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) (+ (cos 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) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))))
#s(approx (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) #s(hole binary64 (* (sin (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ 1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#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 phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (cos (- lambda1 lambda2)) (+ (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* -1/2 (pow phi1 2)))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (cos (- lambda1 lambda2)) (+ (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (cos (- lambda1 lambda2)) (+ (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ 1 (cos (- lambda1 lambda2)))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (cos (- lambda1 lambda2)) (* -1/2 (pow phi1 2))))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ 1 (+ (cos (- lambda1 lambda2)) (* (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) (* 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) (* phi1 phi1)) #s(hole binary64 (* -1/2 (pow phi1 2))))
#s(approx (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) #s(hole binary64 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))
#s(approx (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) #s(hole binary64 (* (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 (* -1/720 (* phi1 phi1)) #s(hole binary64 (* -1/720 (pow phi1 2))))
#s(approx (* phi1 phi1) #s(hole binary64 (pow phi1 2)))
#s(approx (cos phi1) #s(hole binary64 (cos phi1)))
#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) (* phi1 phi1)) #s(hole binary64 (* -1/720 (pow phi1 6))))
#s(approx (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) #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)) #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) #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 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (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) (- (* (sin lambda1) (cos lambda2)) (* (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) (- (* (sin lambda1) (cos lambda2)) (* (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 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) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* -1/2 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* 1/24 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* 1/24 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #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) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (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 (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (* (* phi2 phi2) -1/2) #s(hole binary64 (* -1/2 (pow phi2 2))))
#s(approx (* phi2 phi2) #s(hole binary64 (pow phi2 2)))
#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 (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) #s(hole binary64 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))))
#s(approx (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (* (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)))) (sin (- lambda1 lambda2))) #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 phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) #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 (* (sin phi2) (cos (/ (PI) 2))) #s(hole binary64 (* phi2 (cos (* 1/2 (PI))))))
#s(approx (* (sin phi2) (cos (/ (PI) 2))) #s(hole binary64 (* phi2 (+ (cos (* 1/2 (PI))) (* -1/6 (* (pow phi2 2) (cos (* 1/2 (PI)))))))))
#s(approx (* (sin phi2) (cos (/ (PI) 2))) #s(hole binary64 (* phi2 (+ (cos (* 1/2 (PI))) (* (pow phi2 2) (+ (* -1/6 (cos (* 1/2 (PI)))) (* 1/120 (* (pow phi2 2) (cos (* 1/2 (PI)))))))))))
#s(approx (* (sin phi2) (cos (/ (PI) 2))) #s(hole binary64 (* phi2 (+ (cos (* 1/2 (PI))) (* (pow phi2 2) (+ (* -1/6 (cos (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (cos (* 1/2 (PI))))) (* 1/120 (cos (* 1/2 (PI))))))))))))
#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 (/ (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 (cos phi2) #s(hole binary64 (cos phi2)))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (+ (/ (cos phi1) (pow phi2 2)) (/ (cos (- lambda1 lambda2)) (pow phi2 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 (* (sin phi2) (cos (/ (PI) 2))) #s(hole binary64 (* (cos (* 1/2 (PI))) (sin phi2))))
#s(approx (sin phi2) #s(hole binary64 (sin phi2)))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (* (cos phi2) (sin (* 1/2 (PI))))))

Calls

12 calls:

Time	Variable		Point	Expression
26.0ms	lambda1	@	-inf	((+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (cos phi2) phi2 (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) (cos lambda2) lambda2 (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (cos phi1) phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (* (* phi2 phi2) -1/2) (* phi2 phi2) -1/2 (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+ (cos (- lambda1 lambda2)) (cos phi1)) (cos phi1) 1 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) (neg (sin lambda2)) (* (cos lambda2) lambda1) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (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) (* phi1 phi1)) (- (* (+ (* -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 (* phi1 phi1)) -1/720 (* phi1 phi1) 1/24 1/2 (* (cos phi2) (cos (- lambda1 lambda2))) (+ lambda1 (atan2 (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (* (sin phi2) (cos (/ (PI) 2))) (sin phi2) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos phi2) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))
7.0ms	phi2	@	inf	((+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (cos phi2) phi2 (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) (cos lambda2) lambda2 (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (cos phi1) phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (* (* phi2 phi2) -1/2) (* phi2 phi2) -1/2 (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+ (cos (- lambda1 lambda2)) (cos phi1)) (cos phi1) 1 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) (neg (sin lambda2)) (* (cos lambda2) lambda1) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (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) (* phi1 phi1)) (- (* (+ (* -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 (* phi1 phi1)) -1/720 (* phi1 phi1) 1/24 1/2 (* (cos phi2) (cos (- lambda1 lambda2))) (+ lambda1 (atan2 (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (* (sin phi2) (cos (/ (PI) 2))) (sin phi2) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos phi2) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))
7.0ms	lambda1	@	inf	((+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (cos phi2) phi2 (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) (cos lambda2) lambda2 (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (cos phi1) phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (* (* phi2 phi2) -1/2) (* phi2 phi2) -1/2 (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+ (cos (- lambda1 lambda2)) (cos phi1)) (cos phi1) 1 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) (neg (sin lambda2)) (* (cos lambda2) lambda1) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (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) (* phi1 phi1)) (- (* (+ (* -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 (* phi1 phi1)) -1/720 (* phi1 phi1) 1/24 1/2 (* (cos phi2) (cos (- lambda1 lambda2))) (+ lambda1 (atan2 (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (* (sin phi2) (cos (/ (PI) 2))) (sin phi2) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos phi2) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))
7.0ms	phi2	@	-inf	((+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (cos phi2) phi2 (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) (cos lambda2) lambda2 (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (cos phi1) phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (* (* phi2 phi2) -1/2) (* phi2 phi2) -1/2 (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+ (cos (- lambda1 lambda2)) (cos phi1)) (cos phi1) 1 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) (neg (sin lambda2)) (* (cos lambda2) lambda1) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (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) (* phi1 phi1)) (- (* (+ (* -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 (* phi1 phi1)) -1/720 (* phi1 phi1) 1/24 1/2 (* (cos phi2) (cos (- lambda1 lambda2))) (+ lambda1 (atan2 (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (* (sin phi2) (cos (/ (PI) 2))) (sin phi2) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos phi2) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))
7.0ms	lambda2	@	-inf	((+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (cos phi2) phi2 (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) (cos lambda2) lambda2 (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (cos phi1) phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (* (* phi2 phi2) -1/2) (* phi2 phi2) -1/2 (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+ (cos (- lambda1 lambda2)) (cos phi1)) (cos phi1) 1 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) (neg (sin lambda2)) (* (cos lambda2) lambda1) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (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) (* phi1 phi1)) (- (* (+ (* -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 (* phi1 phi1)) -1/720 (* phi1 phi1) 1/24 1/2 (* (cos phi2) (cos (- lambda1 lambda2))) (+ lambda1 (atan2 (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (* (sin phi2) (cos (/ (PI) 2))) (sin phi2) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos phi2) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))

rewrite194.0ms (1.8%)

Memory

3.7MiB live, 183.5MiB allocated; 21ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1382	11466
0	1499	10016
0	8392	10016

Stop Event

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

Counts

437 → 563

Calls

Call 1

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

Outputs
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))))) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))) (.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))))
lambda1
(atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))
(*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (.f64 (sin.f64 phi2) #s(literal 0 binary64))) (.f64 (.f64 (cos.f64 phi2) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (.f64 (cos.f64 phi2) #s(literal 1 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi2) #s(literal 1 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (.f64 (sin.f64 phi2) #s(literal 0 binary64))) (-.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(literal 1 binary64))) (.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (*.f64 (cos.f64 phi2) #s(literal 1 binary64))))))
(sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(-.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (.f64 (neg.f64 (cos.f64 phi2)) #s(literal 1 binary64)))
(cos.f64 (neg.f64 phi2))
(cos.f64 phi2)
(+.f64 (.f64 (cos.f64 phi2) #s(literal 1 binary64)) (.f64 (sin.f64 phi2) #s(literal 0 binary64)))
(+.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (.f64 (cos.f64 phi2) #s(literal 1 binary64)))
phi2
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))))))
(sin.f64 (-.f64 lambda1 lambda2))
(-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))
(+.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (neg.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))
(sin.f64 lambda1)
(sin.f64 (+.f64 (neg.f64 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (neg.f64 lambda2)))
(cos.f64 (neg.f64 lambda2))
(cos.f64 lambda2)
lambda2
(*.f64 (cos.f64 lambda1) (sin.f64 lambda2))
(sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 lambda1))
(cos.f64 lambda1)
(sin.f64 lambda2)
(/.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 phi1) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
(-.f64 (cos.f64 phi1) (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))
(+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
(sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 phi1))
(cos.f64 phi1)
phi1
(*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)))
(+.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)))
(cos.f64 (neg.f64 (-.f64 lambda1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(*.f64 (cos.f64 lambda1) (cos.f64 lambda2))
(/.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(*.f64 (sin.f64 lambda1) (sin.f64 lambda2))
(/.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
(*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))))))
(sin.f64 (-.f64 lambda1 lambda2))
(-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))
(+.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda1)) (sin.f64 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))) (+.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 lambda2 lambda2) (*.f64 lambda1 lambda2))))
(-.f64 lambda1 lambda2)
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 phi2 phi2) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64))
(.f64 phi2 (.f64 phi2 #s(literal -1/2 binary64)))
(*.f64 (pow.f64 phi2 #s(literal 1 binary64)) (pow.f64 phi2 #s(literal 1 binary64)))
(*.f64 (fabs.f64 phi2) (fabs.f64 phi2))
(*.f64 (neg.f64 phi2) (neg.f64 phi2))
(*.f64 phi2 phi2)
(pow.f64 phi2 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 phi2) #s(literal 2 binary64)))
#s(literal -1/2 binary64)
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)))
(cos.f64 (neg.f64 (-.f64 lambda1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (.f64 (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (+.f64 (pow.f64 (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (+.f64 (.f64 (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
(-.f64 (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (neg.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64)))) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64))))
(/.f64 (+.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64))))))
(+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)))
#s(approx (cos phi1) #s(literal 1 binary64))
#s(literal 1 binary64)
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (.f64 (cos.f64 lambda2) lambda1) (neg.f64 (sin.f64 lambda2))))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (.f64 (cos.f64 lambda2) lambda1) (neg.f64 (sin.f64 lambda2))))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (.f64 (cos.f64 lambda2) lambda1) (neg.f64 (sin.f64 lambda2))))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (.f64 (cos.f64 lambda2) lambda1) (neg.f64 (sin.f64 lambda2))))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (.f64 (cos.f64 lambda2) lambda1) (neg.f64 (sin.f64 lambda2))))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (.f64 (cos.f64 lambda2) lambda1) (neg.f64 (sin.f64 lambda2))))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (.f64 (cos.f64 lambda2) lambda1) (neg.f64 (sin.f64 lambda2))))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (.f64 (cos.f64 lambda2) lambda1) (neg.f64 (sin.f64 lambda2))))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (.f64 (cos.f64 lambda2) lambda1) (neg.f64 (sin.f64 lambda2))))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (.f64 (cos.f64 lambda2) lambda1) (neg.f64 (sin.f64 lambda2))))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (.f64 (cos.f64 lambda2) lambda1) (neg.f64 (sin.f64 lambda2)))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (*.f64 (cos.f64 lambda2) lambda1) (neg.f64 (sin.f64 lambda2))))
(/.f64 (-.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (neg.f64 (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda2) lambda1) (.f64 (cos.f64 lambda2) lambda1))) (-.f64 (neg.f64 (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) lambda1)))
(/.f64 (+.f64 (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal 3 binary64))) (+.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (neg.f64 (sin.f64 lambda2))) (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) (.f64 (cos.f64 lambda2) lambda1)) (.f64 (neg.f64 (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) lambda1)))))
(-.f64 (neg.f64 (sin.f64 lambda2)) (*.f64 (neg.f64 (cos.f64 lambda2)) lambda1))
(+.f64 (*.f64 (cos.f64 lambda2) lambda1) (neg.f64 (sin.f64 lambda2)))
(+.f64 (neg.f64 (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) lambda1))
(*.f64 #s(literal -1 binary64) (sin.f64 lambda2))
(neg.f64 (sin.f64 lambda2))
(sin.f64 (+.f64 lambda2 (PI.f64)))
(sin.f64 (neg.f64 lambda2))
(cos.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(*.f64 (cos.f64 lambda2) lambda1)
(/.f64 (-.f64 (.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64)))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (+.f64 (pow.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (+.f64 (.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64)))) (-.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
(-.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (*.f64 phi1 phi1)) #s(literal 1 binary64))))
#s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64)))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1))) #s(literal 1 binary64)) (-.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (*.f64 phi1 phi1)) #s(literal 1 binary64)))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 3 binary64)) #s(literal 1 binary64)) (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64)))))
(+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)))
(.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) phi1) phi1)
(.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1)) #s(literal 1/4 binary64)) (+.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (*.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (+.f64 (.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1)) (+.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)))))
(-.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64))
(.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) phi1) phi1)
(.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) (.f64 phi1 phi1))
(/.f64 (-.f64 #s(literal 1/576 binary64) (.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)))) (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (*.f64 phi1 phi1))))
(/.f64 (-.f64 (.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1))) #s(literal 1/576 binary64)) (-.f64 (.f64 #s(literal -1/720 binary64) (*.f64 phi1 phi1)) #s(literal 1/24 binary64)))
(/.f64 (+.f64 #s(literal 1/13824 binary64) (pow.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 3 binary64))) (+.f64 #s(literal 1/576 binary64) (-.f64 (.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1))) (.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1))))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 3 binary64)) #s(literal 1/13824 binary64)) (+.f64 (.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1))) (-.f64 #s(literal 1/576 binary64) (.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)))))
(-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/720 binary64) (.f64 phi1 phi1)))
(+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64))
(+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)))
(.f64 (.f64 #s(literal -1/720 binary64) phi1) phi1)
(.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1))
#s(literal -1/720 binary64)
(*.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)))
(*.f64 (fabs.f64 phi1) (fabs.f64 phi1))
(*.f64 (neg.f64 phi1) (neg.f64 phi1))
(*.f64 phi1 phi1)
(pow.f64 phi1 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 phi1) #s(literal 2 binary64)))
#s(literal 1/24 binary64)
#s(literal 1/2 binary64)
(*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)))
(+.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))))) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))) (.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))))
(atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))
(*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (.f64 (sin.f64 phi2) #s(literal 0 binary64))) (.f64 (.f64 (cos.f64 phi2) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (.f64 (cos.f64 phi2) #s(literal 1 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi2) #s(literal 1 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (.f64 (sin.f64 phi2) #s(literal 0 binary64))) (-.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(literal 1 binary64))) (.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (*.f64 (cos.f64 phi2) #s(literal 1 binary64))))))
(sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(-.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (.f64 (neg.f64 (cos.f64 phi2)) #s(literal 1 binary64)))
(cos.f64 (neg.f64 phi2))
(cos.f64 phi2)
(+.f64 (.f64 (cos.f64 phi2) #s(literal 1 binary64)) (.f64 (sin.f64 phi2) #s(literal 0 binary64)))
(+.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (.f64 (cos.f64 phi2) #s(literal 1 binary64)))
(*.f64 (sin.f64 phi2) #s(literal 0 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) #s(literal 2 binary64))
(sin.f64 phi2)
#s(literal 0 binary64)
(/.f64 (neg.f64 (PI.f64)) #s(literal -2 binary64))
(/.f64 (PI.f64) #s(literal 2 binary64))
(PI.f64)
#s(literal 2 binary64)
(*.f64 (cos.f64 phi2) #s(literal 1 binary64))
#s(literal 1 binary64)
(/.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 phi1) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
(-.f64 (cos.f64 phi1) (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))
(+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos 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 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 (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 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))) lambda1))
#s(approx lambda1 lambda1)
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos 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 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (neg.f64 (*.f64 (cos.f64 phi2) (sin.f64 lambda2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 (.f64 lambda1 (cos.f64 lambda2)) (cos.f64 phi2)) (neg.f64 (*.f64 (cos.f64 phi2) (sin.f64 lambda2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (cos.f64 phi2)))) (neg.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (sin.f64 lambda2)) (.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) (.f64 (cos.f64 lambda2) (cos.f64 phi2)))) (neg.f64 (*.f64 (cos.f64 phi2) (sin.f64 lambda2)))))
#s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))
#s(approx (sin (- lambda1 lambda2)) (-.f64 (*.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))
#s(approx (sin (- lambda1 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 lambda2)) (-.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))) (cos.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 (.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda1)) (cos.f64 lambda2)) (cos.f64 lambda2))))
#s(approx (* (sin lambda1) (cos lambda2)) (.f64 lambda1 (+.f64 (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 (.f64 #s(literal 1/120 binary64) (.f64 lambda1 lambda1)) (cos.f64 lambda2)) (*.f64 #s(literal -1/6 binary64) (cos.f64 lambda2)))) (cos.f64 lambda2))))
#s(approx (* (sin lambda1) (cos lambda2)) (.f64 lambda1 (+.f64 (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (.f64 #s(literal -1/5040 binary64) (.f64 lambda1 lambda1)) (cos.f64 lambda2)) (.f64 #s(literal -1/120 binary64) (cos.f64 lambda2)))) (.f64 #s(literal -1/6 binary64) (cos.f64 lambda2)))) (cos.f64 lambda2))))
#s(approx (sin lambda1) lambda1)
#s(approx (sin lambda1) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/6 binary64) (*.f64 lambda1 lambda1)) #s(literal 1 binary64))))
#s(approx (sin lambda1) (.f64 lambda1 (+.f64 (.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 #s(literal 1/120 binary64) (*.f64 lambda1 lambda1)) #s(literal 1/6 binary64))) #s(literal 1 binary64))))
#s(approx (sin lambda1) (.f64 lambda1 (+.f64 (.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 #s(literal -1/5040 binary64) (*.f64 lambda1 lambda1)) #s(literal 1/120 binary64))) #s(literal 1/6 binary64))) #s(literal 1 binary64))))
#s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))
#s(approx (* (cos lambda1) (sin lambda2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 lambda1)) (sin.f64 lambda2)) (sin.f64 lambda2)))
#s(approx (* (cos lambda1) (sin lambda2)) (+.f64 (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 (.f64 #s(literal 1/24 binary64) (.f64 lambda1 lambda1)) (sin.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))) (sin.f64 lambda2)))
#s(approx (* (cos lambda1) (sin lambda2)) (+.f64 (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (.f64 #s(literal -1/720 binary64) (.f64 lambda1 lambda1)) (sin.f64 lambda2)) (.f64 #s(literal -1/24 binary64) (sin.f64 lambda2)))) (*.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))) (sin.f64 lambda2)))
#s(approx (cos lambda1) #s(literal 1 binary64))
#s(approx (cos lambda1) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda1)) #s(literal 1 binary64)))
#s(approx (cos lambda1) (+.f64 (.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 lambda1 lambda1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
#s(approx (cos lambda1) (+.f64 (.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 lambda1 lambda1)) #s(literal 1/24 binary64))) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 (cos.f64 phi1) (.f64 (.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 (cos.f64 phi1) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 (cos.f64 phi1) (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (cos.f64 phi2)))) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+.f64 (.f64 (.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (cos.f64 phi2)))) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (*.f64 (cos.f64 lambda2) (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))) (+.f64 (*.f64 lambda1 (sin.f64 lambda2)) (cos.f64 lambda2)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda1 (-.f64 (sin.f64 lambda2) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2))))) (cos.f64 lambda2)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 #s(literal 1/6 binary64) (*.f64 lambda1 (sin.f64 lambda2))))) (sin.f64 lambda2))) (cos.f64 lambda2)))
#s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 lambda1)) (cos.f64 lambda2)) (cos.f64 lambda2)))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 (.f64 #s(literal 1/24 binary64) (.f64 lambda1 lambda1)) (cos.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (cos.f64 lambda2)))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (.f64 #s(literal -1/720 binary64) (.f64 lambda1 lambda1)) (cos.f64 lambda2)) (.f64 #s(literal -1/24 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (cos.f64 lambda2)))
#s(approx (* (sin lambda1) (sin lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda1)) (sin.f64 lambda2)) (sin.f64 lambda2))))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 lambda1 (+.f64 (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 (.f64 #s(literal 1/120 binary64) (.f64 lambda1 lambda1)) (sin.f64 lambda2)) (*.f64 #s(literal -1/6 binary64) (sin.f64 lambda2)))) (sin.f64 lambda2))))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 lambda1 (+.f64 (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (.f64 #s(literal -1/5040 binary64) (.f64 lambda1 lambda1)) (sin.f64 lambda2)) (.f64 #s(literal -1/120 binary64) (sin.f64 lambda2)))) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda2)))) (sin.f64 lambda2))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))) lambda1))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 (.f64 lambda1 (cos.f64 phi2)) (cos.f64 lambda2)) (*.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2))))) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) (*.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))
#s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (*.f64 lambda1 (cos.f64 lambda2))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (.f64 lambda1 (+.f64 (.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2))) (neg.f64 (sin.f64 lambda2))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (*.f64 lambda1 (cos.f64 lambda2))))) (cos.f64 lambda2))) (neg.f64 (sin.f64 lambda2))))
#s(approx (- lambda1 lambda2) (neg.f64 lambda2))
#s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (*.f64 (cos.f64 phi2) (cos.f64 lambda2)) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 (cos.f64 phi1) (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 (cos.f64 phi1) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) (neg.f64 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))))) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 (cos.f64 phi1) (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (cos.f64 lambda2)))) (neg.f64 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)) (cos.f64 lambda2)) (cos.f64 lambda2)) (cos.f64 phi1)))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (cos.f64 lambda2) (cos.f64 phi1)) (+.f64 (.f64 lambda1 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)) (neg.f64 (sin.f64 lambda2))) (neg.f64 (sin.f64 lambda2)))) (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)) (cos.f64 lambda2)))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (cos.f64 lambda2) (cos.f64 phi1)) (+.f64 (.f64 lambda1 (-.f64 (+.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi2 phi2)) (cos.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)) (neg.f64 (sin.f64 lambda2)))) (neg.f64 (sin.f64 lambda2)))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)) (cos.f64 lambda2)))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (cos.f64 lambda2) (cos.f64 phi1)) (+.f64 (.f64 lambda1 (-.f64 (+.f64 (.f64 lambda1 (+.f64 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi2 phi2)) (cos.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) (.f64 lambda1 (-.f64 (.f64 (.f64 #s(literal -1/12 binary64) (.f64 phi2 phi2)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1/6 binary64) (neg.f64 (sin.f64 lambda2))))))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)) (neg.f64 (sin.f64 lambda2)))) (neg.f64 (sin.f64 lambda2)))) (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)) (cos.f64 lambda2)))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)) (cos.f64 lambda2)))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 (.f64 phi2 phi2) (neg.f64 (sin.f64 lambda2)))) (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)) (cos.f64 lambda2))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) lambda1) (.f64 (.f64 phi2 phi2) (cos.f64 lambda2))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)) (neg.f64 (sin.f64 lambda2))))) (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)) (cos.f64 lambda2))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/12 binary64) lambda1) (.f64 (.f64 phi2 phi2) (neg.f64 (sin.f64 lambda2)))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi2 phi2)) (cos.f64 lambda2)))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)) (neg.f64 (sin.f64 lambda2))))) (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)) (cos.f64 lambda2))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2))) (neg.f64 (sin.f64 lambda2)))) (cos.f64 lambda2)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2)))) (cos.f64 lambda2)))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) (+.f64 (cos.f64 lambda2) (cos.f64 phi1)))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) (+.f64 (+.f64 (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)) (cos.f64 phi1)))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) (+.f64 (+.f64 (cos.f64 lambda2) (cos.f64 phi1)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2))) (neg.f64 (sin.f64 lambda2))))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) (+.f64 (+.f64 (cos.f64 lambda2) (cos.f64 phi1)) (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2))))))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) (neg.f64 (sin.f64 lambda2)))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) (-.f64 (*.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))
#s(approx (* (cos lambda2) lambda1) (*.f64 lambda1 (cos.f64 lambda2)))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) (neg.f64 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (cos.f64 lambda2)))) (neg.f64 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))) lambda1))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (.f64 (neg.f64 (sin.f64 lambda2)) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 (.f64 lambda1 (cos.f64 lambda2)) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (neg.f64 (sin.f64 lambda2)) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (neg.f64 (sin.f64 lambda2)) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 lambda2) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (neg.f64 (sin.f64 lambda2)) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 (cos.f64 lambda2) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2))) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 lambda2) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (neg.f64 (sin.f64 lambda2)) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 lambda1 (+.f64 (/.f64 (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 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))) lambda1) #s(literal 1 binary64))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (sin (- lambda1 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 (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) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos lambda1) (cos lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
#s(approx (* (sin lambda1) (sin lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 lambda1 (+.f64 (/.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))) lambda1) #s(literal 1 binary64))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (*.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 lambda1 (+.f64 (/.f64 (neg.f64 lambda2) lambda1) #s(literal 1 binary64))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (cos.f64 phi1) (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) (*.f64 lambda1 (cos.f64 lambda2)))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) (*.f64 lambda1 (+.f64 (/.f64 (neg.f64 (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 lambda1 (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (+.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))) lambda1) #s(literal 1 binary64))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 (neg.f64 lambda1) (-.f64 (neg.f64 (/.f64 (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 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))) lambda1)) #s(literal 1 binary64))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 (neg.f64 lambda1) (-.f64 (neg.f64 (/.f64 (atan2.f64 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 (+.f64 (neg.f64 lambda1) lambda2)))) (+.f64 (*.f64 (cos.f64 phi2) (cos.f64 (+.f64 (neg.f64 lambda1) lambda2))) (cos.f64 phi1))) lambda1)) #s(literal 1 binary64))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 (+.f64 (neg.f64 lambda1) lambda2)))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 (neg.f64 lambda1) lambda2))) (cos.f64 phi1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (neg.f64 (sin.f64 (+.f64 (neg.f64 lambda1) lambda2)))))
#s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 (+.f64 (neg.f64 lambda1) lambda2))))
#s(approx (- lambda1 lambda2) (*.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (*.f64 (cos.f64 phi2) (cos.f64 (+.f64 (neg.f64 lambda1) lambda2))) (cos.f64 phi1)))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 lambda1) lambda2)) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)) (cos.f64 (+.f64 (neg.f64 lambda1) lambda2)))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)) (cos.f64 (+.f64 (neg.f64 lambda1) lambda2))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (+.f64 (neg.f64 lambda1) lambda2)))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) (+.f64 (cos.f64 (+.f64 (neg.f64 lambda1) lambda2)) (cos.f64 phi1)))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) (*.f64 (neg.f64 lambda1) (+.f64 (neg.f64 (cos.f64 lambda2)) (/.f64 (sin.f64 lambda2) lambda1))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (+.f64 (neg.f64 lambda1) lambda2))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 (neg.f64 lambda1) (-.f64 (neg.f64 (/.f64 (atan2.f64 (.f64 (neg.f64 (sin.f64 (+.f64 (neg.f64 lambda1) lambda2))) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (+.f64 (*.f64 (cos.f64 phi2) (cos.f64 (+.f64 (neg.f64 lambda1) lambda2))) (cos.f64 phi1))) lambda1)) #s(literal 1 binary64))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (neg.f64 (sin.f64 (+.f64 (neg.f64 lambda1) lambda2))) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 (neg.f64 lambda1) lambda2))) (cos.f64 phi1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (.f64 (neg.f64 (sin.f64 (+.f64 (neg.f64 lambda1) lambda2))) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 (neg.f64 lambda2) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.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)))) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (*.f64 (neg.f64 lambda2) (cos.f64 lambda1)) (sin.f64 lambda1)))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1))) (sin.f64 lambda1)))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 lambda1)) (.f64 #s(literal -1/6 binary64) (*.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 lambda1))) (sin.f64 lambda1)))
#s(approx (* (sin lambda1) (cos lambda2)) (sin.f64 lambda1))
#s(approx (* (sin lambda1) (cos lambda2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 lambda2)) (sin.f64 lambda1)) (sin.f64 lambda1)))
#s(approx (* (sin lambda1) (cos lambda2)) (+.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 (.f64 #s(literal 1/24 binary64) (.f64 lambda2 lambda2)) (sin.f64 lambda1)) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda1)))) (sin.f64 lambda1)))
#s(approx (* (sin lambda1) (cos lambda2)) (+.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 (.f64 #s(literal -1/720 binary64) (.f64 lambda2 lambda2)) (sin.f64 lambda1)) (.f64 #s(literal -1/24 binary64) (sin.f64 lambda1)))) (*.f64 #s(literal -1/2 binary64) (sin.f64 lambda1)))) (sin.f64 lambda1)))
#s(approx (cos lambda2) #s(literal 1 binary64))
#s(approx (cos lambda2) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 lambda2)) #s(literal 1 binary64)))
#s(approx (cos lambda2) (+.f64 (.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 lambda2 lambda2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
#s(approx (cos lambda2) (+.f64 (.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 lambda2 lambda2)) #s(literal 1/24 binary64))) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
#s(approx lambda2 lambda2)
#s(approx (* (cos lambda1) (sin lambda2)) (*.f64 lambda2 (cos.f64 lambda1)))
#s(approx (* (cos lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda2 lambda2)) (cos.f64 lambda1)) (cos.f64 lambda1))))
#s(approx (* (cos lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 (.f64 #s(literal 1/120 binary64) (.f64 lambda2 lambda2)) (cos.f64 lambda1)) (*.f64 #s(literal -1/6 binary64) (cos.f64 lambda1)))) (cos.f64 lambda1))))
#s(approx (* (cos lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 (.f64 #s(literal -1/5040 binary64) (.f64 lambda2 lambda2)) (cos.f64 lambda1)) (.f64 #s(literal -1/120 binary64) (cos.f64 lambda1)))) (.f64 #s(literal -1/6 binary64) (cos.f64 lambda1)))) (cos.f64 lambda1))))
#s(approx (sin lambda2) lambda2)
#s(approx (sin lambda2) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/6 binary64) (*.f64 lambda2 lambda2)) #s(literal 1 binary64))))
#s(approx (sin lambda2) (.f64 lambda2 (+.f64 (.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 #s(literal 1/120 binary64) (*.f64 lambda2 lambda2)) #s(literal 1/6 binary64))) #s(literal 1 binary64))))
#s(approx (sin lambda2) (.f64 lambda2 (+.f64 (.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 #s(literal -1/5040 binary64) (*.f64 lambda2 lambda2)) #s(literal 1/120 binary64))) #s(literal 1/6 binary64))) #s(literal 1 binary64))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 (cos.f64 phi1) (.f64 (.f64 lambda2 (cos.f64 phi2)) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 (cos.f64 phi1) (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/6 binary64) lambda2) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (.f64 #s(literal -1/2 binary64) (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) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+.f64 (.f64 (.f64 lambda2 (cos.f64 phi2)) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+.f64 (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) 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) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/6 binary64) lambda2) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (cos.f64 phi2)))) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (*.f64 (cos.f64 lambda1) (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))) (+.f64 (*.f64 lambda2 (sin.f64 lambda1)) (cos.f64 lambda1)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda2 (-.f64 (sin.f64 lambda1) (.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 lambda1)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (*.f64 lambda2 (sin.f64 lambda1))))) (sin.f64 lambda1))) (cos.f64 lambda1)))
#s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 lambda2)) (cos.f64 lambda1)) (cos.f64 lambda1)))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 (.f64 #s(literal 1/24 binary64) (.f64 lambda2 lambda2)) (cos.f64 lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)))) (cos.f64 lambda1)))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 (.f64 #s(literal -1/720 binary64) (.f64 lambda2 lambda2)) (cos.f64 lambda1)) (.f64 #s(literal -1/24 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)))) (cos.f64 lambda1)))
#s(approx (* (sin lambda1) (sin lambda2)) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda2 lambda2)) (sin.f64 lambda1)) (sin.f64 lambda1))))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 (.f64 #s(literal 1/120 binary64) (.f64 lambda2 lambda2)) (sin.f64 lambda1)) (*.f64 #s(literal -1/6 binary64) (sin.f64 lambda1)))) (sin.f64 lambda1))))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 (.f64 #s(literal -1/5040 binary64) (.f64 lambda2 lambda2)) (sin.f64 lambda1)) (.f64 #s(literal -1/120 binary64) (sin.f64 lambda1)))) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1)))) (sin.f64 lambda1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 (neg.f64 lambda2) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.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)))) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2)))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (*.f64 (neg.f64 lambda2) (cos.f64 lambda1)) (sin.f64 lambda1)))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (.f64 lambda2 (-.f64 (neg.f64 (cos.f64 lambda1)) (.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1))))) (sin.f64 lambda1)))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (.f64 lambda2 (+.f64 (neg.f64 (cos.f64 lambda1)) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 lambda1)) (.f64 #s(literal -1/6 binary64) (*.f64 lambda2 (cos.f64 lambda1))))))) (sin.f64 lambda1)))
#s(approx (- lambda1 lambda2) (+.f64 (neg.f64 lambda2) lambda1))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 (cos.f64 phi1) (.f64 (.f64 lambda2 (cos.f64 phi2)) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 (cos.f64 phi1) (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/6 binary64) lambda2) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (.f64 #s(literal -1/2 binary64) (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 phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 lambda1)))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (cos.f64 lambda1) (cos.f64 phi1)) (+.f64 (.f64 lambda2 (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)) (sin.f64 lambda1)) (neg.f64 (sin.f64 lambda1)))) (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)) (cos.f64 lambda1)))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (cos.f64 lambda1) (cos.f64 phi1)) (+.f64 (.f64 lambda2 (-.f64 (+.f64 (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi2 phi2)) (cos.f64 lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)) (sin.f64 lambda1))) (neg.f64 (sin.f64 lambda1)))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)) (cos.f64 lambda1)))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (cos.f64 lambda1) (cos.f64 phi1)) (+.f64 (.f64 lambda2 (-.f64 (+.f64 (.f64 lambda2 (+.f64 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi2 phi2)) (cos.f64 lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))) (.f64 lambda2 (-.f64 (.f64 (.f64 #s(literal 1/12 binary64) (.f64 phi2 phi2)) (sin.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (sin.f64 lambda1)))))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)) (sin.f64 lambda1))) (neg.f64 (sin.f64 lambda1)))) (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)) (cos.f64 lambda1)))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)) (cos.f64 lambda1)))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (+.f64 (.f64 (.f64 lambda2 (.f64 phi2 phi2)) (sin.f64 lambda1)) (.f64 (.f64 phi2 phi2) (cos.f64 lambda1)))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) lambda2) (.f64 (.f64 phi2 phi2) (cos.f64 lambda1))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)) (sin.f64 lambda1)))) (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)) (cos.f64 lambda1))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal 1/12 binary64) lambda2) (.f64 (.f64 phi2 phi2) (sin.f64 lambda1))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi2 phi2)) (cos.f64 lambda1)))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)) (sin.f64 lambda1)))) (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)) (cos.f64 lambda1))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (*.f64 lambda2 (sin.f64 lambda1)) (cos.f64 lambda1)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1))) (neg.f64 (sin.f64 lambda1)))) (cos.f64 lambda1)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (*.f64 lambda2 (sin.f64 lambda1))))) (neg.f64 (sin.f64 lambda1)))) (cos.f64 lambda1)))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) (+.f64 (cos.f64 lambda1) (cos.f64 phi1)))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) (+.f64 (+.f64 (*.f64 lambda2 (sin.f64 lambda1)) (cos.f64 phi1)) (cos.f64 lambda1)))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) (+.f64 (+.f64 (cos.f64 lambda1) (cos.f64 phi1)) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1))) (neg.f64 (sin.f64 lambda1))))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) (+.f64 (+.f64 (cos.f64 lambda1) (cos.f64 phi1)) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (*.f64 lambda2 (sin.f64 lambda1))))) (neg.f64 (sin.f64 lambda1))))))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) lambda1)
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) (+.f64 (neg.f64 lambda2) lambda1))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) (+.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 lambda2)) #s(literal 1 binary64))) lambda1))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) (+.f64 (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 #s(literal -1/6 binary64) lambda2))) #s(literal 1 binary64))) lambda1))
#s(approx (neg (sin lambda2)) (neg.f64 lambda2))
#s(approx (neg (sin lambda2)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (*.f64 lambda2 lambda2)) #s(literal 1 binary64))))
#s(approx (neg (sin lambda2)) (.f64 lambda2 (-.f64 (.f64 (.f64 lambda2 lambda2) (-.f64 #s(literal 1/6 binary64) (.f64 #s(literal 1/120 binary64) (*.f64 lambda2 lambda2)))) #s(literal 1 binary64))))
#s(approx (neg (sin lambda2)) (.f64 lambda2 (-.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 #s(literal 1/5040 binary64) (*.f64 lambda2 lambda2)) #s(literal 1/120 binary64))) #s(literal 1/6 binary64))) #s(literal 1 binary64))))
#s(approx (* (cos lambda2) lambda1) lambda1)
#s(approx (* (cos lambda2) lambda1) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (*.f64 lambda2 lambda2))) lambda1))
#s(approx (* (cos lambda2) lambda1) (+.f64 (.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 #s(literal -1/24 binary64) (.f64 lambda1 (.f64 lambda2 lambda2))))) lambda1))
#s(approx (* (cos lambda2) lambda1) (+.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 #s(literal -1/720 binary64) (.f64 lambda1 (.f64 lambda2 lambda2))) (.f64 #s(literal -1/24 binary64) lambda1))) (*.f64 #s(literal -1/2 binary64) lambda1))) lambda1))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+.f64 (.f64 (.f64 lambda2 (cos.f64 phi2)) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+.f64 (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) 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) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/6 binary64) lambda2) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (cos.f64 phi2)))) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (.f64 (sin.f64 lambda1) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 (neg.f64 lambda2) (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (sin.f64 lambda1) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (sin.f64 lambda1) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (neg.f64 (cos.f64 lambda1)) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (sin.f64 lambda1) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda2) (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 lambda1)) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (neg.f64 (cos.f64 lambda1)) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (sin.f64 lambda1) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos lambda2) (cos.f64 lambda2))
#s(approx (sin lambda2) (sin.f64 lambda2))
#s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (neg (sin lambda2)) (neg.f64 (sin.f64 lambda2)))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 (neg.f64 lambda2) lambda1))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 (neg.f64 lambda2) lambda1))) (cos.f64 phi1))) lambda1))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 (neg.f64 lambda2) lambda1))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 (neg.f64 lambda2) lambda1))) (cos.f64 phi1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (sin.f64 (+.f64 (neg.f64 lambda2) lambda1))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 lambda2) lambda1)))
#s(approx (- lambda1 lambda2) (*.f64 (neg.f64 lambda2) (+.f64 (/.f64 (neg.f64 lambda1) lambda2) #s(literal 1 binary64))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (*.f64 (cos.f64 phi2) (cos.f64 (+.f64 (neg.f64 lambda2) lambda1))) (cos.f64 phi1)))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 lambda2) lambda1)) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)) (cos.f64 (+.f64 (neg.f64 lambda2) lambda1)))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)) (cos.f64 (+.f64 (neg.f64 lambda2) lambda1))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (+.f64 (neg.f64 lambda2) lambda1)))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) (+.f64 (cos.f64 (+.f64 (neg.f64 lambda2) lambda1)) (cos.f64 phi1)))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (+.f64 (neg.f64 lambda2) lambda1))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 (atan2.f64 (.f64 (sin.f64 (+.f64 (neg.f64 lambda2) lambda1)) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 (neg.f64 lambda2) lambda1))) (cos.f64 phi1))) lambda1))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (+.f64 (neg.f64 lambda2) lambda1)) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 (neg.f64 lambda2) lambda1))) (cos.f64 phi1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (.f64 (sin.f64 (+.f64 (neg.f64 lambda2) lambda1)) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (+.f64 (.f64 #s(literal -1/720 binary64) (*.f64 phi1 phi1)) #s(literal 1/24 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos phi1) #s(literal 1 binary64))
#s(approx (cos phi1) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)) #s(literal 1 binary64)))
#s(approx (cos phi1) (+.f64 (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
#s(approx (cos phi1) (+.f64 (.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64))) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
#s(approx phi1 phi1)
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (+.f64 (.f64 #s(literal -1/720 binary64) (*.f64 phi1 phi1)) #s(literal 1/24 binary64))) #s(literal 1/2 binary64)))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (+.f64 (.f64 (.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi1 phi1)))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64))) #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) (+.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 phi1))) #s(literal 1 binary64)))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) (+.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)))))
#s(approx (+ (cos (- lambda1 lambda2)) (cos phi1)) (+.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64))) #s(literal 1/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 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)) #s(literal 1 binary64)))
#s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (+.f64 (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
#s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (+.f64 (.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64))) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
#s(approx (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)))
#s(approx (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64))))
#s(approx (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 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) (.f64 phi1 phi1)) #s(literal 1/2 binary64)))
#s(approx (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (-.f64 (.f64 (.f64 phi1 phi1) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64))) #s(literal 1/2 binary64)))
#s(approx (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)))
#s(approx (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) (.f64 (.f64 phi1 phi1) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64))))
#s(approx (+ (* -1/720 (* phi1 phi1)) 1/24) #s(literal 1/24 binary64))
#s(approx (+ (* -1/720 (* phi1 phi1)) 1/24) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)))
#s(approx (* -1/720 (* phi1 phi1)) (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)))
#s(approx (* phi1 phi1) (*.f64 phi1 phi1))
#s(approx (cos phi1) (cos.f64 phi1))
#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 phi1 phi1)) #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 (/.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #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 (+.f64 (pow.f64 phi1 #s(literal -6 binary64)) (/.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1))) (+.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 phi1 #s(literal 4 binary64))) #s(literal 1/720 binary64)))))
#s(approx (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) (*.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)) (.f64 (pow.f64 phi1 #s(literal 6 binary64)) (-.f64 (/.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/720 binary64))))
#s(approx (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) (.f64 (pow.f64 phi1 #s(literal 6 binary64)) (-.f64 (-.f64 (/.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #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 phi1 phi1)) #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 (/.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #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 phi1 phi1)) #s(literal 1/720 binary64))))
#s(approx (+ (* -1/720 (* phi1 phi1)) 1/24) (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)))
#s(approx (+ (* -1/720 (* phi1 phi1)) 1/24) (.f64 (.f64 phi1 phi1) (-.f64 (/.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)) #s(literal 1/720 binary64))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 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)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (-.f64 (+.f64 (.f64 (.f64 phi2 phi2) (+.f64 (.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal -1/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) (sin (- lambda1 lambda2))) (-.f64 (+.f64 (.f64 (.f64 phi2 phi2) (+.f64 (.f64 (.f64 phi2 phi2) (-.f64 (.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2)) (-.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 #s(literal -1/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 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 (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)) #s(literal 1 binary64)))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (.f64 (.f64 phi2 phi2) (-.f64 (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2)) #s(literal 1/24 binary64))) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
#s(approx phi2 phi2)
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 (cos.f64 phi1) (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 (.f64 (.f64 phi2 phi2) (+.f64 (.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/24 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+.f64 (.f64 (.f64 phi2 phi2) (+.f64 (.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+.f64 (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/24 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 (.f64 phi2 phi2) (+.f64 (.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 lambda1 lambda2))))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 (.f64 phi2 phi2) (+.f64 (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal 1/24 binary64) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2)) (sin.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 lambda1 lambda2))))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 (cos.f64 phi1) (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 (.f64 (.f64 phi2 phi2) (+.f64 (.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/24 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))
#s(approx (* (* phi2 phi2) -1/2) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)))
#s(approx (* phi2 phi2) (*.f64 phi2 phi2))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+.f64 (.f64 (.f64 phi2 phi2) (+.f64 (.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+.f64 (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(literal -1/24 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 (.f64 phi2 (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 (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) 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 (* (cos phi2) (sin (- lambda1 lambda2))) (+.f64 (.f64 phi2 (+.f64 (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal -1/6 binary64) phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (.f64 #s(literal -1/2 binary64) (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 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 (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (.f64 phi2 (+.f64 (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal -1/6 binary64) phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (sin phi2) (cos (/ (PI) 2))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (sin phi2) (cos (/ (PI) 2))) (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal -1/6 binary64) (.f64 phi2 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin phi2) (cos (/ (PI) 2))) (.f64 phi2 (+.f64 (.f64 (.f64 phi2 phi2) (+.f64 (.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi2 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin phi2) (cos (/ (PI) 2))) (.f64 phi2 (+.f64 (.f64 (.f64 phi2 phi2) (+.f64 (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal 1/120 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (.f64 #s(literal -1/5040 binary64) (.f64 phi2 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/6 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin phi2) phi2)
#s(approx (sin phi2) (.f64 phi2 (+.f64 (.f64 #s(literal -1/6 binary64) (*.f64 phi2 phi2)) #s(literal 1 binary64))))
#s(approx (sin phi2) (.f64 phi2 (+.f64 (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal 1/120 binary64) (*.f64 phi2 phi2)) #s(literal 1/6 binary64))) #s(literal 1 binary64))))
#s(approx (sin phi2) (.f64 phi2 (+.f64 (.f64 (.f64 phi2 phi2) (-.f64 (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/5040 binary64) (*.f64 phi2 phi2)) #s(literal 1/120 binary64))) #s(literal 1/6 binary64))) #s(literal 1 binary64))))
#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 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 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 (/ (PI) 2))) (+.f64 (.f64 (.f64 phi2 phi2) (+.f64 (.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (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 (/ (PI) 2))) (+.f64 (.f64 (.f64 phi2 phi2) (+.f64 (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal 1/24 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (cos.f64 phi2))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 phi2 phi2) (+.f64 (/.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 phi2 phi2)) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin phi2) (cos (/ (PI) 2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))
#s(approx (sin phi2) (sin.f64 phi2))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))

eval162.0ms (1.5%)

Memory: -6.5MiB live, 181.8MiB allocated; 44ms collecting garbage
Compiler: Compiled 47 863 to 4 576 computations (90.4% saved)

prune125.0ms (1.1%)

Memory

-13.0MiB live, 132.1MiB allocated; 9ms collecting garbage

Pruning

60 alts after pruning (59 fresh and 1 done)

	Pruned	Kept	Total
New	885	27	912
Fresh	9	32	41
Picked	5	0	5
Done	0	1	1
Total	899	60	959

Accuracy

99.9%

Counts

959 → 60

Alt Table

Click to see full alt table

Status	Accuracy	Program
	66.3%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))))
	53.7%	(+.f64 (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 (.f64 lambda1 lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64)) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 3 binary64)) (+.f64 (.f64 lambda1 lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64)) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))))))
	83.8%	(+.f64 lambda1 (atan2.f64 (.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi2) #s(literal 1 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (.f64 (sin.f64 phi2) #s(literal 0 binary64))) (-.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(literal 1 binary64))) (.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (.f64 (cos.f64 phi2) #s(literal 1 binary64)))))) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) lambda1)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (+.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 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi2) #s(literal 1 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (.f64 (sin.f64 phi2) #s(literal 0 binary64))) (-.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(literal 1 binary64))) (.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (*.f64 (cos.f64 phi2) #s(literal 1 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2))))))
	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (+.f64 (.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	89.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (+.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (cos.f64 lambda1))))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2))))))
	80.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))
	77.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (cos.f64 (-.f64 lambda1 lambda2))))))
	84.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
	81.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	98.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
	93.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64))) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
	58.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64)))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) (-.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
	98.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))))))
	60.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (pow.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) (.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))))
	93.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))))
	98.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (+.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	98.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))))))
	81.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	80.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))
	98.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))))
	77.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	83.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (+.f64 (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))))
	73.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 ( (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (cos.f64 (-.f64 lambda1 lambda2))))))
	83.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64)) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	81.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(approx (+ ( (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	81.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (.f64 (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2)) #s(literal 1 binary64)))))
	77.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (/.f64 (+.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
	71.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (/.f64 (+.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)))))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
	72.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (/.f64 (+.f64 (-.f64 lambda1 lambda2) phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 (-.f64 lambda1 lambda2) phi1) #s(literal 2 binary64))))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
	62.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))))
	76.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (+.f64 (/.f64 (neg.f64 lambda2) lambda1) #s(literal 1 binary64)) lambda1)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	57.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
	65.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	59.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
	83.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) lambda1)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	84.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) lambda1)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))))
▶	78.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) lambda1)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2)))) (cos.f64 lambda2)))))))
	81.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) lambda1)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2))) (neg.f64 (sin.f64 lambda2)))) (cos.f64 lambda2)))))))
	84.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) #s(approx ( (cos lambda2) lambda1) lambda1)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	67.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
	72.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (neg (sin lambda2)) ( (cos lambda2) lambda1)) (+.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64))) lambda1)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	73.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (neg (sin lambda2)) ( (cos lambda2) lambda1)) (+.f64 (neg.f64 lambda2) lambda1)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	83.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (neg (sin lambda2)) ( (cos lambda2) lambda1)) (.f64 lambda1 (+.f64 (/.f64 (neg.f64 (sin.f64 lambda2)) lambda1) (cos.f64 lambda2)))))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	65.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (neg (sin lambda2)) ( (cos lambda2) lambda1)) lambda1))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	58.0%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (.f64 (.f64 phi2 phi2) (-.f64 (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2)) #s(literal 1/24 binary64))) #s(literal 1/2 binary64))) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
	58.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
	68.7%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
	58.6%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
▶	68.1%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (+.f64 (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	74.0%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (+.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	67.9%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (+.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	69.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	76.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
	76.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	68.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
▶	57.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
	98.6%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) lambda1) #s(literal 1 binary64)) lambda1))
✓	56.4%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

Compiler

Compiled 6 286 to 3 597 computations (42.8% saved)

series153.0ms (1.4%)

Memory

16.3MiB live, 154.4MiB allocated; 16ms collecting garbage

Counts

84 → 520

Calls

Call 1

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

Outputs
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx lambda1 #s(hole binary64 lambda1))
#s(approx (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* (cos phi2) (sin lambda2)))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2))))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (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) (- (* (sin lambda1) (cos lambda2)) (* (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 (- (* (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 (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) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) #s(hole binary64 (+ (cos phi1) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (* (cos phi2) (sin lambda2))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi2)))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* lambda1 (* (cos phi2) (sin lambda2)))))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (sin lambda2))) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi2)))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* lambda1 (* (cos phi2) (sin lambda2)))))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (cos phi2)) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos lambda2) (cos phi2)))) (* (cos lambda2) (cos phi2)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (cos phi2)) #s(hole binary64 (+ (* (cos lambda2) (cos phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* 1/24 (* (pow lambda1 2) (* (cos lambda2) (cos phi2)))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (cos phi2)) #s(hole binary64 (+ (* (cos lambda2) (cos phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos lambda2) (cos phi2)))) (* 1/24 (* (cos lambda2) (cos phi2))))))))))
#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 lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda1 (* (cos phi2) (sin lambda2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda1 (+ (* -1/6 (* (pow lambda1 2) (* (cos phi2) (sin lambda2)))) (* (cos phi2) (sin lambda2))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda1 (+ (* (cos phi2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/6 (* (cos phi2) (sin lambda2))) (* 1/120 (* (pow lambda1 2) (* (cos phi2) (sin lambda2))))))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda1 (+ (* (cos phi2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/6 (* (cos phi2) (sin lambda2))) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (* (cos phi2) (sin lambda2)))) (* 1/120 (* (cos phi2) (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 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin (neg lambda2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (neg lambda2)))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #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 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* 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 (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (neg lambda2)) (* -1/2 (* (pow phi2 2) (cos (neg lambda2))))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (neg lambda2)) (+ (* -1/2 (* (pow phi2 2) (cos (neg lambda2)))) (* lambda1 (- (* 1/2 (* (pow phi2 2) (sin (neg lambda2)))) (sin (neg lambda2)))))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (neg lambda2)) (+ (* -1/2 (* (pow phi2 2) (cos (neg lambda2)))) (* lambda1 (- (+ (* 1/2 (* (pow phi2 2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/4 (* (pow phi2 2) (cos (neg lambda2))))))) (sin (neg lambda2)))))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (neg lambda2)) (+ (* -1/2 (* (pow phi2 2) (cos (neg lambda2)))) (* lambda1 (- (+ (* 1/2 (* (pow phi2 2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (+ (* 1/4 (* (pow phi2 2) (cos (neg lambda2)))) (* lambda1 (- (* -1/12 (* (pow phi2 2) (sin (neg lambda2)))) (* -1/6 (sin (neg lambda2))))))))) (sin (neg lambda2)))))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1/2 (* (pow phi2 2) (cos (neg lambda2))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (cos (neg lambda2)))) (* 1/2 (* lambda1 (* (pow phi2 2) (sin (neg lambda2))))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (cos (neg lambda2)))) (* lambda1 (+ (* 1/4 (* lambda1 (* (pow phi2 2) (cos (neg lambda2))))) (* 1/2 (* (pow phi2 2) (sin (neg lambda2)))))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (cos (neg lambda2)))) (* lambda1 (+ (* 1/2 (* (pow phi2 2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/12 (* lambda1 (* (pow phi2 2) (sin (neg lambda2))))) (* 1/4 (* (pow phi2 2) (cos (neg lambda2)))))))))))
#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 (* (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 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* lambda1 (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi2) (+ (* -1/6 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))) (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi2) (+ (* -1/6 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))) (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))) (* lambda1 (+ (* -1/6 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (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) (neg (sin lambda2))) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (neg lambda1) #s(hole binary64 (* -1 lambda1)))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) #s(hole binary64 (- (* lambda1 (cos lambda2)) (sin lambda2))))
#s(approx (* (cos lambda2) lambda1) #s(hole binary64 (* lambda1 (cos lambda2))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (cos phi1) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (* (cos phi2) (sin lambda2))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi2)))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* lambda1 (* (cos phi2) (sin lambda2)))))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (sin lambda2))) (* (cos lambda2) (cos phi2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi2)))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* lambda1 (* (cos phi2) (sin lambda2)))))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2)))))
#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 (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))
#s(approx (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* lambda1 (+ (* -1/2 (cos lambda2)) (* -1/6 (* lambda1 (sin lambda2))))))))))
#s(approx (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))
#s(approx (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* lambda1 (+ (* -1/2 (cos lambda2)) (* -1/6 (* lambda1 (sin lambda2)))))))))
#s(approx (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2))) #s(hole binary64 (sin lambda2)))
#s(approx (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2))) #s(hole binary64 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))
#s(approx (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2))) #s(hole binary64 (+ (sin lambda2) (* lambda1 (+ (* -1/2 (cos lambda2)) (* -1/6 (* lambda1 (sin lambda2))))))))
#s(approx (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) #s(hole binary64 (* -1/2 (* lambda1 (cos lambda2)))))
#s(approx (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) #s(hole binary64 (* lambda1 (+ (* -1/2 (cos lambda2)) (* -1/6 (* lambda1 (sin lambda2)))))))
#s(approx (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2))) #s(hole binary64 (* -1/2 (cos lambda2))))
#s(approx (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2))) #s(hole binary64 (+ (* -1/2 (cos lambda2)) (* -1/6 (* lambda1 (sin lambda2))))))
#s(approx (* (* 1/6 lambda1) (neg (sin lambda2))) #s(hole binary64 (* -1/6 (* lambda1 (sin lambda2)))))
#s(approx (* 1/6 lambda1) #s(hole binary64 (* 1/6 lambda1)))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2)))))) lambda1)))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #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 (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) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) #s(hole binary64 (+ (cos phi1) (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (cos phi2)) #s(hole binary64 (* (cos lambda1) (* (cos lambda2) (cos phi2)))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (* (cos lambda1) (cos lambda2))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (* (sin lambda1) (sin lambda2)))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* (sin lambda1) (sin lambda2))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #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) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) lambda1)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#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 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) lambda1)))))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) #s(hole binary64 (* lambda1 (cos lambda2))))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* -1 (/ (sin lambda2) lambda1))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (+ (* (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 (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) #s(hole binary64 (* -1/6 (* (pow lambda1 3) (sin lambda2)))))
#s(approx (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (/ (cos lambda2) lambda1)) (* -1/6 (sin lambda2))))))
#s(approx (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (/ (cos lambda2) lambda1)) (+ (* -1/6 (sin lambda2)) (/ (sin lambda2) (pow lambda1 2)))))))
#s(approx (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (/ (cos lambda2) lambda1)) (+ (* -1/6 (sin lambda2)) (+ (/ (cos lambda2) (pow lambda1 3)) (/ (sin lambda2) (pow lambda1 2))))))))
#s(approx (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) #s(hole binary64 (* -1/6 (* (pow lambda1 3) (sin lambda2)))))
#s(approx (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (/ (cos lambda2) lambda1)) (* -1/6 (sin lambda2))))))
#s(approx (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (/ (cos lambda2) lambda1)) (+ (* -1/6 (sin lambda2)) (/ (sin lambda2) (pow lambda1 2)))))))
#s(approx (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2))) #s(hole binary64 (* -1/6 (* (pow lambda1 2) (sin lambda2)))))
#s(approx (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (/ (cos lambda2) lambda1)) (* -1/6 (sin lambda2))))))
#s(approx (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (/ (cos lambda2) lambda1)) (+ (* -1/6 (sin lambda2)) (/ (sin lambda2) (pow lambda1 2)))))))
#s(approx (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) #s(hole binary64 (* -1/6 (* (pow lambda1 2) (sin lambda2)))))
#s(approx (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (/ (cos lambda2) lambda1)) (* -1/6 (sin lambda2))))))
#s(approx (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2))) #s(hole binary64 (* -1/6 (* lambda1 (sin lambda2)))))
#s(approx (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2))) #s(hole binary64 (* lambda1 (+ (* -1/2 (/ (cos lambda2) lambda1)) (* -1/6 (sin lambda2))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2)))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))) lambda1)) 1)))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #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) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (neg (+ lambda2 (* -1 lambda1)))) (* -1/2 (* (pow phi2 2) (cos (neg (+ lambda2 (* -1 lambda1))))))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1/2 (* (pow phi2 2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1))))))))) lambda1)) 1)))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1))))))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (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 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) lambda1)) 1)))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1))))))
#s(approx (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* 1/6 (sin lambda2)) (* 1/2 (/ (cos lambda2) lambda1)))))))
#s(approx (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1/2 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/6 (sin lambda2)))))))
#s(approx (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) lambda1)) (* 1/6 (sin lambda2)))))))
#s(approx (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* 1/6 (sin lambda2)) (* 1/2 (/ (cos lambda2) lambda1)))))))
#s(approx (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1/2 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/6 (sin lambda2)))))))
#s(approx (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (sin lambda2) lambda1)) (* 1/2 (cos lambda2))) lambda1)) (* -1/6 (sin lambda2))))))
#s(approx (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2))) #s(hole binary64 (* -1 (* lambda1 (+ (* 1/6 (sin lambda2)) (* 1/2 (/ (cos lambda2) lambda1)))))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (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) (- (* (sin lambda1) (cos lambda2)) (* (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 (- (* (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 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 lambda2 #s(hole binary64 lambda2))
#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) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) #s(hole binary64 (+ (cos phi1) (+ (* 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 lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin 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) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin 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 (* (* (cos lambda1) (cos lambda2)) (cos phi2)) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1/2 (* (pow lambda2 2) (* (cos lambda1) (cos phi2)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (cos phi2)) #s(hole binary64 (+ (* (cos lambda1) (cos phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* 1/24 (* (pow lambda2 2) (* (cos lambda1) (cos phi2)))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (cos phi2)) #s(hole binary64 (+ (* (cos lambda1) (cos phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (* (cos lambda1) (cos phi2)))) (* 1/24 (* (cos lambda1) (cos phi2))))))))))
#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 lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda2 (* (cos phi2) (sin lambda1)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda2 (+ (* -1/6 (* (pow lambda2 2) (* (cos phi2) (sin lambda1)))) (* (cos phi2) (sin lambda1))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda2 (+ (* (cos phi2) (sin lambda1)) (* (pow lambda2 2) (+ (* -1/6 (* (cos phi2) (sin lambda1))) (* 1/120 (* (pow lambda2 2) (* (cos phi2) (sin lambda1))))))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda2 (+ (* (cos phi2) (sin lambda1)) (* (pow lambda2 2) (+ (* -1/6 (* (cos phi2) (sin lambda1))) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (* (cos phi2) (sin lambda1)))) (* 1/120 (* (cos phi2) (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 phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (sin (- lambda1 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) (sin (- lambda1 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 (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 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (* 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 (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (* -1/2 (* (pow phi2 2) (cos lambda1)))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (+ (* -1/2 (* (pow phi2 2) (cos lambda1))) (* lambda2 (- (* -1/2 (* (pow phi2 2) (sin lambda1))) (* -1 (sin lambda1)))))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (+ (* -1/2 (* (pow phi2 2) (cos lambda1))) (* lambda2 (- (+ (* -1/2 (* (pow phi2 2) (sin lambda1))) (* lambda2 (+ (* -1/2 (cos lambda1)) (* 1/4 (* (pow phi2 2) (cos lambda1)))))) (* -1 (sin lambda1)))))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos lambda1) (+ (cos phi1) (+ (* -1/2 (* (pow phi2 2) (cos lambda1))) (* lambda2 (- (+ (* -1/2 (* (pow phi2 2) (sin lambda1))) (* lambda2 (+ (* -1/2 (cos lambda1)) (+ (* 1/4 (* (pow phi2 2) (cos lambda1))) (* lambda2 (- (* 1/12 (* (pow phi2 2) (sin lambda1))) (* 1/6 (sin lambda1)))))))) (* -1 (sin lambda1)))))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1/2 (* (pow phi2 2) (cos lambda1)))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda2 (* (pow phi2 2) (sin lambda1)))) (* -1/2 (* (pow phi2 2) (cos lambda1))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (cos lambda1))) (* lambda2 (+ (* -1/2 (* (pow phi2 2) (sin lambda1))) (* 1/4 (* lambda2 (* (pow phi2 2) (cos lambda1)))))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (cos lambda1))) (* lambda2 (+ (* -1/2 (* (pow phi2 2) (sin lambda1))) (* lambda2 (+ (* 1/12 (* lambda2 (* (pow phi2 2) (sin lambda1)))) (* 1/4 (* (pow phi2 2) (cos lambda1))))))))))
#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 (- 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) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI))))))) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* lambda2 (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1)))))) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi2) (+ (* -1/6 (* (sin lambda1) (sin (* 1/2 (PI))))) (* 1/6 (* (cos lambda1) (cos (* 1/2 (PI)))))))) (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))))))) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI))))))) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1)))))) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi2) (+ (* -1/6 (* (sin lambda1) (sin (* 1/2 (PI))))) (* 1/6 (* (cos lambda1) (cos (* 1/2 (PI)))))))) (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))))))) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin lambda1) (sin (* 1/2 (PI))))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))) (* lambda2 (+ (* -1/6 (* (sin lambda1) (sin (* 1/2 (PI))))) (* 1/6 (* (cos lambda1) (cos (* 1/2 (PI)))))))))) (* (sin lambda1) (sin (* 1/2 (PI))))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin 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 lambda1) (neg (sin lambda2))) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (* (neg lambda1) (neg (sin lambda2))) #s(hole binary64 (* lambda2 (+ lambda1 (* -1/6 (* lambda1 (pow lambda2 2)))))))
#s(approx (* (neg lambda1) (neg (sin lambda2))) #s(hole binary64 (* lambda2 (+ lambda1 (* (pow lambda2 2) (+ (* -1/6 lambda1) (* 1/120 (* lambda1 (pow lambda2 2)))))))))
#s(approx (* (neg lambda1) (neg (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 (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 (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) #s(hole binary64 lambda1))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) #s(hole binary64 (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)))))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) #s(hole binary64 (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)))))
#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 phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (cos phi1) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* 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 phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin 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) (cos lambda2)) (* (sin lambda1) (sin 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 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 (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda1 (* lambda2 (+ 1 (* -1/6 (pow lambda1 2)))))))))
#s(approx (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (* 1/4 (pow lambda1 2)) 1/2))))))))
#s(approx (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (+ (* 1/4 (pow lambda1 2)) (* lambda1 (* lambda2 (- (* 1/36 (pow lambda1 2)) 1/6)))) 1/2))))))))
#s(approx (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) #s(hole binary64 (* -1/2 (pow lambda1 2))))
#s(approx (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) #s(hole binary64 (+ (* -1/2 (pow lambda1 2)) (* lambda1 (* lambda2 (+ 1 (* -1/6 (pow lambda1 2))))))))
#s(approx (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) #s(hole binary64 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ (* 1/4 (* (pow lambda1 2) lambda2)) (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))))))))
#s(approx (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) #s(hole binary64 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (+ (* 1/4 (pow lambda1 2)) (* lambda1 (* lambda2 (- (* 1/36 (pow lambda1 2)) 1/6))))))))))
#s(approx (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2))) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2))) #s(hole binary64 (+ (* -1/2 lambda1) (* lambda2 (+ 1 (* -1/6 (pow lambda1 2)))))))
#s(approx (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2))) #s(hole binary64 (+ (* -1/2 lambda1) (* lambda2 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* 1/4 (* lambda1 lambda2))))))))
#s(approx (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2))) #s(hole binary64 (+ (* -1/2 lambda1) (* lambda2 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/4 lambda1) (* lambda2 (- (* 1/36 (pow lambda1 2)) 1/6))))))))))
#s(approx (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) #s(hole binary64 (+ (* -1/2 lambda1) (* -1/6 (* (pow lambda1 2) lambda2)))))
#s(approx (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) #s(hole binary64 (+ (* -1/2 lambda1) (* lambda2 (+ (* -1/6 (pow lambda1 2)) (* 1/4 (* lambda1 lambda2)))))))
#s(approx (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) #s(hole binary64 (+ (* -1/2 lambda1) (* lambda2 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/36 (* (pow lambda1 2) lambda2)) (* 1/4 lambda1))))))))
#s(approx (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2))) #s(hole binary64 -1/2))
#s(approx (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2))) #s(hole binary64 (- (* -1/6 (* lambda1 lambda2)) 1/2)))
#s(approx (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2))) #s(hole binary64 (- (* lambda2 (+ (* -1/6 lambda1) (* 1/4 lambda2))) 1/2)))
#s(approx (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2))) #s(hole binary64 (- (* lambda2 (+ (* -1/6 lambda1) (* lambda2 (+ 1/4 (* 1/36 (* lambda1 lambda2)))))) 1/2)))
#s(approx (* (* 1/6 lambda1) (neg (sin lambda2))) #s(hole binary64 (* -1/6 (* lambda1 lambda2))))
#s(approx (* (* 1/6 lambda1) (neg (sin lambda2))) #s(hole binary64 (* lambda2 (+ (* -1/6 lambda1) (* 1/36 (* lambda1 (pow lambda2 2)))))))
#s(approx (* (* 1/6 lambda1) (neg (sin lambda2))) #s(hole binary64 (* lambda2 (+ (* -1/6 lambda1) (* (pow lambda2 2) (+ (* -1/720 (* lambda1 (pow lambda2 2))) (* 1/36 lambda1)))))))
#s(approx (* (* 1/6 lambda1) (neg (sin lambda2))) #s(hole binary64 (* lambda2 (+ (* -1/6 lambda1) (* (pow lambda2 2) (+ (* 1/36 lambda1) (* (pow lambda2 2) (+ (* -1/720 lambda1) (* 1/30240 (* lambda1 (pow lambda2 2)))))))))))
#s(approx (* -1/2 (cos lambda2)) #s(hole binary64 -1/2))
#s(approx (* -1/2 (cos lambda2)) #s(hole binary64 (- (* 1/4 (pow lambda2 2)) 1/2)))
#s(approx (* -1/2 (cos lambda2)) #s(hole binary64 (- (* (pow lambda2 2) (+ 1/4 (* -1/48 (pow lambda2 2)))) 1/2)))
#s(approx (* -1/2 (cos lambda2)) #s(hole binary64 (- (* (pow lambda2 2) (+ 1/4 (* (pow lambda2 2) (- (* 1/1440 (pow lambda2 2)) 1/48)))) 1/2)))
#s(approx (cos lambda2) #s(hole binary64 (cos lambda2)))
#s(approx (sin lambda2) #s(hole binary64 (sin lambda2)))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (* -1/2 (cos lambda2)) #s(hole binary64 (* -1/2 (cos lambda2))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #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) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (+ lambda1 (* -1 lambda2))) (* -1/2 (* (pow phi2 2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1/2 (* (pow phi2 2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI)))))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI)))))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) #s(hole binary64 (+ 1 (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (* (cos phi2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) #s(hole binary64 (+ 1 (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (+ (* (cos phi2) (* (sin lambda1) (sin lambda2))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))))))
#s(approx (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) #s(hole binary64 (+ 1 (+ (* (cos lambda1) (* (cos lambda2) (cos phi2))) (+ (* (cos phi2) (* (sin lambda1) (sin lambda2))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))))))
#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 phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (cos (- lambda1 lambda2)) (+ (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* -1/2 (pow phi1 2)))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (cos (- lambda1 lambda2)) (+ (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ 1 (+ (cos (- lambda1 lambda2)) (+ (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* (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) (* 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) (* phi1 phi1)) #s(hole binary64 (* -1/2 (pow phi1 2))))
#s(approx (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) #s(hole binary64 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))
#s(approx (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) #s(hole binary64 (* (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 (* -1/720 (* phi1 phi1)) #s(hole binary64 (* -1/720 (pow phi1 2))))
#s(approx (* phi1 phi1) #s(hole binary64 (pow phi1 2)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ 1 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ 1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow phi1 2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ 1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2))))))
#s(approx (cos phi1) #s(hole binary64 (cos phi1)))
#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) (* phi1 phi1)) #s(hole binary64 (* -1/720 (pow phi1 6))))
#s(approx (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) #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)) #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) #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 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (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) (- (* (sin lambda1) (cos lambda2)) (* (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) (- (* (sin lambda1) (cos lambda2)) (* (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 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) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) #s(hole binary64 (+ (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) #s(hole binary64 (+ (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (cos lambda2))) (* -1/2 (* (sin lambda1) (sin lambda2))))))))))
#s(approx (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) #s(hole binary64 (+ (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (cos lambda2))) (+ (* -1/2 (* (sin lambda1) (sin lambda2))) (* (pow phi2 2) (+ (* 1/24 (* (cos lambda1) (cos lambda2))) (* 1/24 (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) #s(hole binary64 (+ (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (cos lambda2))) (+ (* -1/2 (* (sin lambda1) (sin lambda2))) (* (pow phi2 2) (+ (* 1/24 (* (cos lambda1) (cos lambda2))) (+ (* 1/24 (* (sin lambda1) (sin lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (cos lambda1) (cos lambda2))) (* -1/720 (* (sin lambda1) (sin lambda2))))))))))))))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (cos lambda2))) (* -1/2 (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (cos lambda2))) (+ (* -1/2 (* (sin lambda1) (sin lambda2))) (* (pow phi2 2) (+ (* 1/24 (* (cos lambda1) (cos lambda2))) (* 1/24 (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (cos lambda2))) (+ (* -1/2 (* (sin lambda1) (sin lambda2))) (* (pow phi2 2) (+ (* 1/24 (* (cos lambda1) (cos lambda2))) (+ (* 1/24 (* (sin lambda1) (sin lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (cos lambda1) (cos lambda2))) (* -1/720 (* (sin lambda1) (sin lambda2)))))))))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (cos phi2)) #s(hole binary64 (* (cos lambda1) (cos lambda2))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos lambda1) (cos lambda2)))) (* (cos lambda1) (cos lambda2)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (cos phi2)) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (cos lambda2))) (* 1/24 (* (pow phi2 2) (* (cos lambda1) (cos lambda2)))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (cos phi2)) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (cos lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos lambda1) (cos lambda2)))) (* 1/24 (* (cos lambda1) (cos lambda2))))))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (* (sin lambda1) (sin lambda2))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (sin lambda1) (sin lambda2)))) (* (sin lambda1) (sin lambda2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (* (sin lambda1) (sin lambda2))) (* 1/24 (* (pow phi2 2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) #s(hole binary64 (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (* (sin lambda1) (sin lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (sin lambda1) (sin lambda2)))) (* 1/24 (* (sin lambda1) (sin lambda2))))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #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) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (+ (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 (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (* (* phi2 phi2) -1/2) #s(hole binary64 (* -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) (* phi2 phi2)) #s(hole binary64 (* -1/2 (pow phi2 2))))
#s(approx (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) #s(hole binary64 (* (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 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) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* -1/2 (* (pow phi2 2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* 1/24 (* (pow phi2 2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* 1/24 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* 1/24 (* (pow phi2 2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* 1/24 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* -1/2 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* 1/24 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* 1/24 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (cos phi2) #s(hole binary64 (cos phi2)))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (+ (/ (cos phi1) (pow phi2 2)) (/ (cos (- lambda1 lambda2)) (pow phi2 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) (* phi2 phi2)) #s(hole binary64 (* 1/24 (pow phi2 4))))
#s(approx (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) #s(hole binary64 (* (pow phi2 4) (- 1/24 (* 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)))))))

Calls

12 calls:

Time	Variable		Point	Expression
31.0ms	lambda2	@	0	((+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))))) lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))))) (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (cos phi2) phi2 (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) (cos lambda2) lambda2 (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) (cos phi1) phi1 (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))) (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (cos lambda1) (cos lambda2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (* (sin lambda1) (sin lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (* (* phi2 phi2) -1/2) (* phi2 phi2) -1/2 (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) 1/24 1/2 1 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (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) (* phi1 phi1)) (- (* (+ (* -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 (* phi1 phi1)) -1/720 (* phi1 phi1) (* (cos phi2) (cos (- lambda1 lambda2))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (* (neg lambda1) (neg (sin lambda2))) (neg lambda1) (neg (sin lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) (* (cos lambda2) lambda1) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2))) (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2))) (* (* 1/6 lambda1) (neg (sin lambda2))) (* 1/6 lambda1) 1/6 (* -1/2 (cos lambda2)))
19.0ms	lambda2	@	-inf	((+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))))) lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))))) (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (cos phi2) phi2 (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) (cos lambda2) lambda2 (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) (cos phi1) phi1 (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))) (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (cos lambda1) (cos lambda2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (* (sin lambda1) (sin lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (* (* phi2 phi2) -1/2) (* phi2 phi2) -1/2 (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) 1/24 1/2 1 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (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) (* phi1 phi1)) (- (* (+ (* -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 (* phi1 phi1)) -1/720 (* phi1 phi1) (* (cos phi2) (cos (- lambda1 lambda2))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (* (neg lambda1) (neg (sin lambda2))) (neg lambda1) (neg (sin lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) (* (cos lambda2) lambda1) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2))) (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2))) (* (* 1/6 lambda1) (neg (sin lambda2))) (* 1/6 lambda1) 1/6 (* -1/2 (cos lambda2)))
18.0ms	phi2	@	-inf	((+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))))) lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))))) (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (cos phi2) phi2 (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) (cos lambda2) lambda2 (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) (cos phi1) phi1 (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))) (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (cos lambda1) (cos lambda2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (* (sin lambda1) (sin lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (* (* phi2 phi2) -1/2) (* phi2 phi2) -1/2 (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) 1/24 1/2 1 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (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) (* phi1 phi1)) (- (* (+ (* -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 (* phi1 phi1)) -1/720 (* phi1 phi1) (* (cos phi2) (cos (- lambda1 lambda2))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (* (neg lambda1) (neg (sin lambda2))) (neg lambda1) (neg (sin lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) (* (cos lambda2) lambda1) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2))) (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2))) (* (* 1/6 lambda1) (neg (sin lambda2))) (* 1/6 lambda1) 1/6 (* -1/2 (cos lambda2)))
10.0ms	lambda1	@	-inf	((+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))))) lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))))) (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (cos phi2) phi2 (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) (cos lambda2) lambda2 (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) (cos phi1) phi1 (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))) (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (cos lambda1) (cos lambda2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (* (sin lambda1) (sin lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (* (* phi2 phi2) -1/2) (* phi2 phi2) -1/2 (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) 1/24 1/2 1 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (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) (* phi1 phi1)) (- (* (+ (* -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 (* phi1 phi1)) -1/720 (* phi1 phi1) (* (cos phi2) (cos (- lambda1 lambda2))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (* (neg lambda1) (neg (sin lambda2))) (neg lambda1) (neg (sin lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) (* (cos lambda2) lambda1) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2))) (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2))) (* (* 1/6 lambda1) (neg (sin lambda2))) (* 1/6 lambda1) 1/6 (* -1/2 (cos lambda2)))
9.0ms	lambda1	@	inf	((+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))))) lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))))) (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (cos phi2) phi2 (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) (cos lambda2) lambda2 (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) (cos phi1) phi1 (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))) (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (cos lambda1) (cos lambda2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (* (sin lambda1) (sin lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (* (* phi2 phi2) -1/2) (* phi2 phi2) -1/2 (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) 1/24 1/2 1 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (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) (* phi1 phi1)) (- (* (+ (* -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 (* phi1 phi1)) -1/720 (* phi1 phi1) (* (cos phi2) (cos (- lambda1 lambda2))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (* (neg lambda1) (neg (sin lambda2))) (neg lambda1) (neg (sin lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) (* (cos lambda2) lambda1) (+ (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2))) (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2))) (* (* 1/6 lambda1) (neg (sin lambda2))) (* 1/6 lambda1) 1/6 (* -1/2 (cos lambda2)))

rewrite225.0ms (2%)

Memory

25.3MiB live, 210.4MiB allocated; 19ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1905	18847
0	2036	17015
0	8382	17015

Stop Event

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

Counts

604 → 679

Calls

Call 1

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

Outputs
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2))))))) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)))))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2))))) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)))))) (.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2))))))
lambda1
(atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)))))
(*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2)))
(sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 phi2))
(cos.f64 phi2)
phi2
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))))))
(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))
(sin.f64 lambda1)
(sin.f64 (+.f64 (neg.f64 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (neg.f64 lambda2)))
(cos.f64 (neg.f64 lambda2))
(cos.f64 lambda2)
lambda2
(*.f64 (cos.f64 lambda1) (sin.f64 lambda2))
(sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 lambda1))
(cos.f64 lambda1)
(sin.f64 lambda2)
(/.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi1)) (.f64 (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2))) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2))))) (-.f64 (cos.f64 phi1) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)))))
(/.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 phi1) (cos.f64 phi1)) (-.f64 (.f64 (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2))) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)))) (.f64 (cos.f64 phi1) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)))))))
(+.f64 (cos.f64 phi1) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2))))
(sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 phi1))
(cos.f64 phi1)
phi1
(/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2))) (.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)))) (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2))) (-.f64 (.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2))) (.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2))))))
(+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)))
(.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2))
(*.f64 (cos.f64 lambda1) (cos.f64 lambda2))
(/.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2))
(*.f64 (sin.f64 lambda1) (sin.f64 lambda2))
(/.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 #s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) (atan2.f64 #s(approx ( (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))) (-.f64 lambda1 (atan2.f64 #s(approx ( (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 #s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (atan2.f64 #s(approx ( (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))) (atan2.f64 #s(approx ( (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (sin.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (cos.f64 lambda2))) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))))))
(sin.f64 (-.f64 lambda1 lambda2))
(-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))
(/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 lambda2 lambda2) (*.f64 lambda1 lambda2))))
(-.f64 lambda1 lambda2)
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64))
(*.f64 (fabs.f64 phi2) (fabs.f64 phi2))
(*.f64 (neg.f64 phi2) (neg.f64 phi2))
(*.f64 phi2 phi2)
(pow.f64 phi2 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 phi2) #s(literal 2 binary64)))
#s(literal -1/2 binary64)
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64)) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))) (-.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64)) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64))) (.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (-.f64 lambda1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 #s(approx (cos phi2) (+.f64 (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (atan2.f64 (.f64 #s(approx (cos phi2) (+.f64 (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (-.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (+.f64 (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 #s(approx (cos phi2) (+.f64 (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (atan2.f64 (.f64 #s(approx (cos phi2) (+.f64 (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (atan2.f64 (.f64 #s(approx (cos phi2) (+.f64 (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (+.f64 (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (+.f64 (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(atan2.f64 (.f64 #s(approx (cos phi2) (+.f64 (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (cos phi2) (+.f64 (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2)))
#s(approx (cos phi2) (+.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 (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2)) (.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 (pow.f64 (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2)) #s(literal 3 binary64)) #s(literal 1 binary64)) (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2)) (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2))) (-.f64 #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 (.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 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (+.f64 (.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64))) (+.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 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)
#s(literal 1 binary64)
(/.f64 (-.f64 (.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (+.f64 (pow.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (+.f64 (.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
(+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (-.f64 (.f64 (+.f64 (.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)) (.f64 (-.f64 (.f64 (+.f64 (.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 (+.f64 (.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 (pow.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 3 binary64)) #s(literal 1 binary64)) (+.f64 (.f64 (.f64 (-.f64 (.f64 (+.f64 (.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)) (.f64 (-.f64 (.f64 (+.f64 (.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))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (+.f64 (.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 (.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))
(/.f64 (-.f64 (pow.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (+.f64 (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) (.f64 phi1 phi1))) (+.f64 #s(literal 1/4 binary64) (.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)))))
(-.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64))
(.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)) (.f64 phi1 phi1))
(/.f64 (-.f64 (.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1))) #s(literal 1/576 binary64)) (-.f64 (.f64 #s(literal -1/720 binary64) (*.f64 phi1 phi1)) #s(literal 1/24 binary64)))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 3 binary64)) #s(literal 1/13824 binary64)) (+.f64 (.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1))) (-.f64 #s(literal 1/576 binary64) (.f64 (.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))
(.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1))
#s(literal -1/720 binary64)
(*.f64 (fabs.f64 phi1) (fabs.f64 phi1))
(*.f64 (neg.f64 phi1) (neg.f64 phi1))
(*.f64 phi1 phi1)
(pow.f64 phi1 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 phi1) #s(literal 2 binary64)))
(*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))))) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2))))))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2))))))) (.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2))))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))))
(atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2))))))
(*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))) (.f64 (cos.f64 phi2) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))) (-.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2))))))
(/.f64 (+.f64 (pow.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi2) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))) (.f64 (cos.f64 phi2) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2))))) (.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2))))))))
(+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))
(.f64 (cos.f64 phi2) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))
(/.f64 (-.f64 (.f64 (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)))) (.f64 (cos.f64 lambda2) (cos.f64 lambda2))) (-.f64 (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))
(/.f64 (+.f64 (pow.f64 (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda2)) (.f64 (*.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))
(*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)))
(neg.f64 lambda1)
(neg.f64 (sin.f64 lambda2))
(sin.f64 (+.f64 lambda2 (PI.f64)))
(sin.f64 (neg.f64 lambda2))
(cos.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) lambda1)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2)))) (cos.f64 lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) lambda1)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2)))) (cos.f64 lambda2)))))))) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) lambda1)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2)))) (cos.f64 lambda2))))))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) lambda1)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2)))) (cos.f64 lambda2)))))) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) lambda1)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2)))) (cos.f64 lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) lambda1)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2)))) (cos.f64 lambda2))))))) (.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) lambda1)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2)))) (cos.f64 lambda2))))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) lambda1)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2)))) (cos.f64 lambda2)))))))
(atan2.f64 (.f64 (cos.f64 phi2) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) lambda1)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2)))) (cos.f64 lambda2))))))
(.f64 (cos.f64 phi2) #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (neg.f64 (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) lambda1))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (neg.f64 (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) lambda1)))
(/.f64 (-.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (neg.f64 (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda2) lambda1) (.f64 (cos.f64 lambda2) lambda1))) (-.f64 (neg.f64 (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) lambda1)))
(/.f64 (+.f64 (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal 3 binary64))) (+.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (neg.f64 (sin.f64 lambda2))) (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) (.f64 (cos.f64 lambda2) lambda1)) (.f64 (neg.f64 (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) lambda1)))))
(+.f64 (neg.f64 (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) lambda1))
(*.f64 (cos.f64 lambda2) lambda1)
(/.f64 (-.f64 (.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2)))) (cos.f64 lambda2)))) (.f64 (cos.f64 phi2) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2)))) (cos.f64 lambda2)))))) (-.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2)))) (cos.f64 lambda2))))))
(/.f64 (+.f64 (pow.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi2) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2)))) (cos.f64 lambda2)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2)))) (cos.f64 lambda2)))) (.f64 (cos.f64 phi2) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2)))) (cos.f64 lambda2))))) (.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2)))) (cos.f64 lambda2))))))))
(+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2)))) (cos.f64 lambda2)))))
(.f64 (cos.f64 phi2) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2)))) (cos.f64 lambda2))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2)))) (cos.f64 lambda2)))
(/.f64 (-.f64 (.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2)))) (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2))))) (.f64 (cos.f64 lambda2) (cos.f64 lambda2))) (-.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2)))) (cos.f64 lambda2)))
(/.f64 (+.f64 (pow.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2)))) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2)))) (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2))))) (-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda2)) (.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2)))) (cos.f64 lambda2)))))
(+.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2)))) (cos.f64 lambda2))
(.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2))))
(/.f64 (-.f64 (pow.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) #s(literal 3 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))) (+.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (neg.f64 (sin.f64 lambda2))) (.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2))))))
(-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (neg.f64 (sin.f64 lambda2)))
(.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)))) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)))) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) (.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))
(+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))
(.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)))
(*.f64 #s(literal 1/6 binary64) lambda1)
#s(literal 1/6 binary64)
(*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx lambda1 lambda1)
#s(approx (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+.f64 (.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) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (.f64 lambda1 (+.f64 (.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) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.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 (.f64 lambda1 lambda1) (cos.f64 lambda2))))))
#s(approx (* (sin lambda1) (cos lambda2)) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 lambda2)) (.f64 #s(literal 1/120 binary64) (.f64 (*.f64 lambda1 lambda1) (cos.f64 lambda2))))))))
#s(approx (* (sin lambda1) (cos lambda2)) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 lambda2)) (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (.f64 lambda1 lambda1) (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) (*.f64 lambda1 lambda1)))))
#s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 #s(literal 1/120 binary64) (*.f64 lambda1 lambda1)) #s(literal 1/6 binary64))))))
#s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (.f64 lambda1 lambda1) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (*.f64 lambda1 lambda1)))) #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 (*.f64 lambda1 lambda1) (sin.f64 lambda2)))))
#s(approx (* (cos lambda1) (sin lambda2)) (+.f64 (sin.f64 lambda2) (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 lambda1 lambda1) (sin.f64 lambda2)))))))
#s(approx (* (cos lambda1) (sin lambda2)) (+.f64 (sin.f64 lambda2) (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)) (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (.f64 lambda1 lambda1) (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) (.f64 lambda1 lambda1))))
#s(approx (cos lambda1) (+.f64 #s(literal 1 binary64) (.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 lambda1 lambda1)) #s(literal 1/2 binary64)))))
#s(approx (cos lambda1) (+.f64 #s(literal 1 binary64) (.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (.f64 lambda1 lambda1) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 lambda1 lambda1)))) #s(literal 1/2 binary64)))))
#s(approx (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2)))) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2)))) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))
#s(approx (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 lambda1 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi2)))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (+.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 lambda1 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (+.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (.f64 lambda1 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi2)))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))))))
#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 (*.f64 lambda1 lambda1) (cos.f64 lambda2)))))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda2) (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 lambda1 lambda1) (cos.f64 lambda2)))))))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda2) (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (.f64 lambda1 lambda1) (cos.f64 lambda2))) (*.f64 #s(literal 1/24 binary64) (cos.f64 lambda2))))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (.f64 lambda1 lambda1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (.f64 lambda1 (+.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 lambda1 lambda1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (.f64 lambda1 (+.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (.f64 lambda1 lambda1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (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 (.f64 lambda1 lambda1) (sin.f64 lambda2))))))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 lambda2)) (.f64 #s(literal 1/120 binary64) (.f64 (*.f64 lambda1 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 lambda2)) (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (.f64 lambda1 lambda1) (sin.f64 lambda2))) (.f64 #s(literal 1/120 binary64) (sin.f64 lambda2)))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (*.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 lambda2))) (*.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) (*.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (neg.f64 (sin.f64 lambda2)))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (neg.f64 (sin.f64 lambda2)) (*.f64 lambda1 (cos.f64 lambda2))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (neg.f64 (sin.f64 lambda2))))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1/6 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))))
#s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))))))) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 phi2 phi2) (cos.f64 lambda2))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (+.f64 (cos.f64 lambda2) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 lambda2))) (.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (*.f64 phi2 phi2) (neg.f64 (sin.f64 lambda2)))) (neg.f64 (sin.f64 lambda2))))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (+.f64 (cos.f64 lambda2) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 lambda2))) (.f64 lambda1 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 phi2) (neg.f64 (sin.f64 lambda2)))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 lambda2)))))) (neg.f64 (sin.f64 lambda2))))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (+.f64 (cos.f64 lambda2) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 lambda2))) (.f64 lambda1 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 phi2) (neg.f64 (sin.f64 lambda2)))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 lambda2))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/12 binary64) (.f64 (.f64 phi2 phi2) (neg.f64 (sin.f64 lambda2)))) (*.f64 #s(literal -1/6 binary64) (neg.f64 (sin.f64 lambda2))))))))) (neg.f64 (sin.f64 lambda2))))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 phi2 phi2) (cos.f64 lambda2))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (*.f64 phi2 phi2) (neg.f64 (sin.f64 lambda2)))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 lambda2))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda1 (.f64 (.f64 phi2 phi2) (cos.f64 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (*.f64 phi2 phi2) (neg.f64 (sin.f64 lambda2))))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 lambda2))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 phi2) (neg.f64 (sin.f64 lambda2)))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (.f64 phi2 phi2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal 1/4 binary64) (.f64 (*.f64 phi2 phi2) (cos.f64 lambda2)))))))))
#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 #s(literal -1 binary64) (.f64 lambda1 (neg.f64 (sin.f64 lambda2))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2))) (neg.f64 (sin.f64 lambda2))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 #s(literal 1/6 binary64) (*.f64 lambda1 (neg.f64 (sin.f64 lambda2)))))) (neg.f64 (sin.f64 lambda2))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))))))) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 lambda2))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (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))) (neg.f64 (sin.f64 lambda2))))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 lambda2))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (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))) (neg.f64 (sin.f64 lambda2)))))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 lambda2))))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 lambda2))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 lambda2)))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (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))) (neg.f64 (sin.f64 lambda2))))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 lambda2)))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (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))) (neg.f64 (sin.f64 lambda2)))))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 lambda2)))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 lambda2)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 lambda2))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (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))) (neg.f64 (sin.f64 lambda2)))))) (.f64 (cos.f64 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 lambda2))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 lambda2)))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (cos.f64 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (sin.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) (neg (sin lambda2))) (*.f64 lambda1 (sin.f64 lambda2)))
#s(approx (neg lambda1) (*.f64 #s(literal -1 binary64) lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda2)))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) (-.f64 (*.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))
#s(approx (* (cos lambda2) lambda1) (*.f64 lambda1 (cos.f64 lambda2)))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2)))) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2)))) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (*.f64 (cos.f64 lambda2) (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))) (+.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 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (*.f64 lambda1 (sin.f64 lambda2)))))))))
#s(approx (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) (cos.f64 lambda2))
#s(approx (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
#s(approx (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))
#s(approx (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (*.f64 lambda1 (sin.f64 lambda2)))))))))
#s(approx (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (*.f64 lambda1 (sin.f64 lambda2)))
#s(approx (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2))))))
#s(approx (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (*.f64 lambda1 (sin.f64 lambda2))))))))
#s(approx (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2))) (sin.f64 lambda2))
#s(approx (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2))) (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))
#s(approx (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2))) (+.f64 (sin.f64 lambda2) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (sin.f64 lambda2)))))))
#s(approx (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))))
#s(approx (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (sin.f64 lambda2))))))
#s(approx (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))
#s(approx (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2))) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (*.f64 lambda1 (sin.f64 lambda2)))))
#s(approx (* (* 1/6 lambda1) (neg (sin lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (sin.f64 lambda2))))
#s(approx (* 1/6 lambda1) (*.f64 #s(literal 1/6 binary64) lambda1))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) lambda1))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (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 (- (* (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 (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) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (* (cos lambda1) (cos lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (sin lambda1) (sin lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) lambda1))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (*.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) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) lambda1))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#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 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) lambda1))))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) (*.f64 lambda1 (cos.f64 lambda2)))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda2) lambda1)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (sin.f64 lambda2))))
#s(approx (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 lambda2) lambda1)) (*.f64 #s(literal -1/6 binary64) (sin.f64 lambda2)))))
#s(approx (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 lambda2) lambda1)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 lambda2)) (/.f64 (sin.f64 lambda2) (.f64 lambda1 lambda1))))))
#s(approx (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 lambda2) lambda1)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 lambda2)) (+.f64 (/.f64 (cos.f64 lambda2) (pow.f64 lambda1 #s(literal 3 binary64))) (/.f64 (sin.f64 lambda2) (.f64 lambda1 lambda1)))))))
#s(approx (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (sin.f64 lambda2))))
#s(approx (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 lambda2) lambda1)) (*.f64 #s(literal -1/6 binary64) (sin.f64 lambda2)))))
#s(approx (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 lambda2) lambda1)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 lambda2)) (/.f64 (sin.f64 lambda2) (.f64 lambda1 lambda1))))))
#s(approx (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 (*.f64 lambda1 lambda1) (sin.f64 lambda2))))
#s(approx (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2))) (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 lambda2) lambda1)) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda2)))))
#s(approx (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2))) (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 lambda2) lambda1)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 lambda2)) (/.f64 (sin.f64 lambda2) (*.f64 lambda1 lambda1))))))
#s(approx (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 (*.f64 lambda1 lambda1) (sin.f64 lambda2))))
#s(approx (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 lambda2) lambda1)) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda2)))))
#s(approx (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (sin.f64 lambda2))))
#s(approx (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 lambda2) lambda1)) (*.f64 #s(literal -1/6 binary64) (sin.f64 lambda2)))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (atan2.f64 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (neg.f64 (sin.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) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (+.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (atan2.f64 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (sin.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 (+.f64 (.f64 #s(literal -1 binary64) (sin.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (atan2.f64 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 (*.f64 #s(literal -1 binary64) (cos.f64 lambda2)) (/.f64 (sin.f64 lambda2) lambda1)))))
#s(approx (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 (.f64 #s(literal 1/6 binary64) (sin.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 lambda2) lambda1))))))
#s(approx (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1)) (*.f64 #s(literal 1/6 binary64) (sin.f64 lambda2))))))
#s(approx (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (sin.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) lambda1)) (.f64 #s(literal 1/6 binary64) (sin.f64 lambda2))))))
#s(approx (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 (.f64 #s(literal 1/6 binary64) (sin.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 lambda2) lambda1))))))
#s(approx (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1)) (*.f64 #s(literal 1/6 binary64) (sin.f64 lambda2))))))
#s(approx (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2))) (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda2) lambda1)) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1)) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda2)))))
#s(approx (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/6 binary64) (sin.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 lambda2) lambda1))))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+.f64 (.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) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+.f64 (.f64 lambda2 (+.f64 (.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) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 lambda2 (+.f64 (.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 (+.f64 (.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 (*.f64 lambda2 lambda2) (sin.f64 lambda1)))))
#s(approx (* (sin lambda1) (cos lambda2)) (+.f64 (sin.f64 lambda1) (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 lambda1)) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 lambda2 lambda2) (sin.f64 lambda1)))))))
#s(approx (* (sin lambda1) (cos lambda2)) (+.f64 (sin.f64 lambda1) (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 lambda1)) (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (.f64 lambda2 lambda2) (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) (.f64 lambda2 lambda2))))
#s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 lambda2 lambda2)) #s(literal 1/2 binary64)))))
#s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 lambda2 lambda2)))) #s(literal 1/2 binary64)))))
#s(approx lambda2 lambda2)
#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 (.f64 lambda2 lambda2) (cos.f64 lambda1))))))
#s(approx (* (cos lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (cos.f64 lambda1) (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 lambda1)) (.f64 #s(literal 1/120 binary64) (.f64 (*.f64 lambda2 lambda2) (cos.f64 lambda1))))))))
#s(approx (* (cos lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (cos.f64 lambda1) (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 lambda1)) (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (.f64 lambda2 lambda2) (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) (*.f64 lambda2 lambda2)))))
#s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 #s(literal 1/120 binary64) (*.f64 lambda2 lambda2)) #s(literal 1/6 binary64))))))
#s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (*.f64 lambda2 lambda2)))) #s(literal 1/6 binary64))))))
#s(approx (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) (+.f64 (cos.f64 phi1) (+.f64 (.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 (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.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 lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))) (+.f64 (.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 (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.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 lambda1) (cos lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 lambda2 lambda2) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 lambda2 lambda2) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (.f64 lambda2 lambda2) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))))
#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 (*.f64 lambda2 lambda2) (cos.f64 lambda1)))))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda1) (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 lambda2 lambda2) (cos.f64 lambda1)))))))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda1) (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (.f64 lambda2 lambda2) (cos.f64 lambda1))) (*.f64 #s(literal 1/24 binary64) (cos.f64 lambda1))))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (.f64 lambda2 lambda2) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (.f64 lambda2 (+.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 lambda2 lambda2) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (.f64 lambda2 (+.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (.f64 lambda2 lambda2) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (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 (.f64 lambda2 lambda2) (sin.f64 lambda1))))))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1)) (.f64 #s(literal 1/120 binary64) (.f64 (*.f64 lambda2 lambda2) (sin.f64 lambda1))))))))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1)) (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (.f64 lambda2 lambda2) (sin.f64 lambda1))) (.f64 #s(literal 1/120 binary64) (sin.f64 lambda1)))))))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+.f64 (.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) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+.f64 (.f64 lambda2 (+.f64 (.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) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 lambda2 (+.f64 (.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 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 (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 lambda1)) (.f64 lambda2 (+.f64 (.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 (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (+.f64 (.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 (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.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 (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 lambda1) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 phi2 phi2) (cos.f64 lambda1))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 lambda1) (+.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 lambda1))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi2 phi2) (sin.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 lambda1) (+.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 lambda1))) (.f64 lambda2 (-.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi2 phi2) (sin.f64 lambda1))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 lambda1)))))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 lambda1) (+.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 lambda1))) (.f64 lambda2 (-.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi2 phi2) (sin.f64 lambda1))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 lambda1))) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/12 binary64) (.f64 (.f64 phi2 phi2) (sin.f64 lambda1))) (.f64 #s(literal 1/6 binary64) (sin.f64 lambda1)))))))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 phi2 phi2) (cos.f64 lambda1))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (.f64 phi2 phi2) (sin.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 phi2 phi2) (cos.f64 lambda1)))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 lambda1))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi2 phi2) (sin.f64 lambda1))) (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (*.f64 phi2 phi2) (cos.f64 lambda1))))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 lambda1))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi2 phi2) (sin.f64 lambda1))) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/12 binary64) (.f64 lambda2 (.f64 (.f64 phi2 phi2) (sin.f64 lambda1)))) (.f64 #s(literal 1/4 binary64) (.f64 (*.f64 phi2 phi2) (cos.f64 lambda1)))))))))
#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 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 lambda1))))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.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 (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.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) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (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 lambda1)))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (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 lambda1))))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (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 lambda1)))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (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 lambda1))))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (+.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (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 lambda1))))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (+.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (+.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.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 lambda1) (neg (sin lambda2))) (*.f64 lambda1 lambda2))
#s(approx (* (neg lambda1) (neg (sin lambda2))) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 lambda2 lambda2))))))
#s(approx (* (neg lambda1) (neg (sin lambda2))) (.f64 lambda2 (+.f64 lambda1 (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 #s(literal 1/120 binary64) (.f64 lambda1 (*.f64 lambda2 lambda2))))))))
#s(approx (* (neg lambda1) (neg (sin lambda2))) (.f64 lambda2 (+.f64 lambda1 (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 lambda1 (.f64 lambda2 lambda2))) (.f64 #s(literal 1/120 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) (*.f64 lambda2 lambda2)) #s(literal 1 binary64))))
#s(approx (neg (sin lambda2)) (.f64 lambda2 (-.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/6 binary64) (.f64 #s(literal -1/120 binary64) (*.f64 lambda2 lambda2)))) #s(literal 1 binary64))))
#s(approx (neg (sin lambda2)) (.f64 lambda2 (-.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/6 binary64) (.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 #s(literal 1/5040 binary64) (*.f64 lambda2 lambda2)) #s(literal 1/120 binary64))))) #s(literal 1 binary64))))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) lambda1)
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 lambda2)) #s(literal 1 binary64)))))
#s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))
#s(approx (* (cos lambda2) lambda1) lambda1)
#s(approx (* (cos lambda2) lambda1) (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (*.f64 lambda2 lambda2)))))
#s(approx (* (cos lambda2) lambda1) (+.f64 lambda1 (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 #s(literal 1/24 binary64) (.f64 lambda1 (.f64 lambda2 lambda2)))))))
#s(approx (* (cos lambda2) lambda1) (+.f64 lambda1 (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 lambda1 (.f64 lambda2 lambda2))) (*.f64 #s(literal 1/24 binary64) lambda1)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (+.f64 (.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 (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.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 phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.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 (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.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 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 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 #s(literal -1/6 binary64) (*.f64 lambda2 (sin.f64 lambda1)))))))))
#s(approx (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda1))))
#s(approx (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda1)) (.f64 lambda1 (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda1))))))))
#s(approx (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda1)) (.f64 lambda2 (+.f64 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda1)))) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/4 binary64) (*.f64 lambda1 lambda1)) #s(literal 1/2 binary64))))))))
#s(approx (+ (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda1)) (.f64 lambda2 (+.f64 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda1)))) (.f64 lambda2 (-.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda1 lambda1)) (.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/36 binary64) (*.f64 lambda1 lambda1)) #s(literal 1/6 binary64))))) #s(literal 1/2 binary64))))))))
#s(approx (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda1)))
#s(approx (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda1)) (.f64 lambda1 (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda1)))))))
#s(approx (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda1)) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 lambda1 lambda1) lambda2)) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (*.f64 lambda1 lambda1))))))))
#s(approx (* lambda1 (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda1)) (.f64 lambda2 (+.f64 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda1)))) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda1 lambda1)) (.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/36 binary64) (*.f64 lambda1 lambda1)) #s(literal 1/6 binary64))))))))))
#s(approx (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))
#s(approx (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2))) (+.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda1))))))
#s(approx (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2))) (+.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda1)) (.f64 #s(literal 1/4 binary64) (.f64 lambda1 lambda2)))))))
#s(approx (- (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2))) (+.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda1)) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/4 binary64) lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/36 binary64) (*.f64 lambda1 lambda1)) #s(literal 1/6 binary64))))))))))
#s(approx (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (*.f64 #s(literal -1/2 binary64) lambda1))
#s(approx (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (+.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 #s(literal -1/6 binary64) (.f64 (.f64 lambda1 lambda1) lambda2))))
#s(approx (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (+.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda1)) (.f64 #s(literal 1/4 binary64) (.f64 lambda1 lambda2))))))
#s(approx (* lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (+.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda1)) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/36 binary64) (.f64 (.f64 lambda1 lambda1) lambda2)) (*.f64 #s(literal 1/4 binary64) lambda1)))))))
#s(approx (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2))) #s(literal -1/2 binary64))
#s(approx (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2))) (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
#s(approx (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2))) (-.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/6 binary64) lambda1) (*.f64 #s(literal 1/4 binary64) lambda2))) #s(literal 1/2 binary64)))
#s(approx (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2))) (-.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 lambda2 (+.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/36 binary64) (*.f64 lambda1 lambda2)))))) #s(literal 1/2 binary64)))
#s(approx (* (* 1/6 lambda1) (neg (sin lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2)))
#s(approx (* (* 1/6 lambda1) (neg (sin lambda2))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 #s(literal 1/36 binary64) (.f64 lambda1 (*.f64 lambda2 lambda2))))))
#s(approx (* (* 1/6 lambda1) (neg (sin lambda2))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 lambda1 (.f64 lambda2 lambda2))) (.f64 #s(literal 1/36 binary64) lambda1))))))
#s(approx (* (* 1/6 lambda1) (neg (sin lambda2))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 #s(literal 1/36 binary64) lambda1) (.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 #s(literal -1/720 binary64) lambda1) (.f64 #s(literal 1/30240 binary64) (.f64 lambda1 (*.f64 lambda2 lambda2))))))))))
#s(approx (* -1/2 (cos lambda2)) #s(literal -1/2 binary64))
#s(approx (* -1/2 (cos lambda2)) (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda2 lambda2)) #s(literal 1/2 binary64)))
#s(approx (* -1/2 (cos lambda2)) (-.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/4 binary64) (.f64 #s(literal -1/48 binary64) (.f64 lambda2 lambda2)))) #s(literal 1/2 binary64)))
#s(approx (* -1/2 (cos lambda2)) (-.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/4 binary64) (.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 #s(literal 1/1440 binary64) (.f64 lambda2 lambda2)) #s(literal 1/48 binary64))))) #s(literal 1/2 binary64)))
#s(approx (cos lambda2) (cos.f64 lambda2))
#s(approx (sin lambda2) (sin.f64 lambda2))
#s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (neg (sin lambda2)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda2)))
#s(approx (* -1/2 (cos lambda2)) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (.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) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (+.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) (+.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) (+.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) (+.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (+.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)))))))
#s(approx (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) (+.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (+.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)))) #s(literal 1/2 binary64)))))))
#s(approx (cos phi1) #s(literal 1 binary64))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)))) #s(literal 1/2 binary64)))))
#s(approx phi1 phi1)
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)) #s(literal 1/2 binary64))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (*.f64 phi1 phi1)))) #s(literal 1/2 binary64))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 #s(literal 1 binary64) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 #s(literal 1 binary64) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 #s(literal 1 binary64) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 #s(literal 1 binary64) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (*.f64 phi1 phi1)))) #s(literal 1/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) (.f64 phi1 phi1))))
#s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #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 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)))) #s(literal 1/2 binary64)))))
#s(approx (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)))
#s(approx (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64))))
#s(approx (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)))) #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) (.f64 phi1 phi1)) #s(literal 1/2 binary64)))
#s(approx (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (-.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)))) #s(literal 1/2 binary64)))
#s(approx (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)))
#s(approx (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)))))
#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) (.f64 phi1 phi1))))
#s(approx (* -1/720 (* phi1 phi1)) (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)))
#s(approx (* phi1 phi1) (*.f64 phi1 phi1))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)) #s(literal 1/2 binary64))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (*.f64 phi1 phi1)))) #s(literal 1/2 binary64))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)) #s(literal 1/2 binary64))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (*.f64 phi1 phi1)))) #s(literal 1/2 binary64))))))
#s(approx (cos phi1) (cos.f64 phi1))
#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) (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) (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 (+.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi1 #s(literal -2 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) (* phi1 phi1)) (*.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)) (.f64 (pow.f64 phi1 #s(literal 6 binary64)) (-.f64 (.f64 #s(literal 1/24 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)) (.f64 (pow.f64 phi1 #s(literal 6 binary64)) (-.f64 (.f64 #s(literal 1/24 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) (*.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) (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) (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) (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) (.f64 phi1 phi1)))
#s(approx (+ (* -1/720 (* phi1 phi1)) 1/24) (.f64 (.f64 phi1 phi1) (-.f64 (*.f64 #s(literal 1/24 binary64) (pow.f64 phi1 #s(literal -2 binary64))) #s(literal 1/720 binary64))))
#s(approx (* (cos phi2) (- (* (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 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (-.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi2 phi2) (-.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) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (-.f64 (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (.f64 phi2 phi2) (+.f64 (.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 (.f64 phi2 phi2) (-.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) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (-.f64 (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi2 phi2) (-.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 phi2) #s(literal 1 binary64))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)) #s(literal 1/2 binary64)))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 (.f64 phi2 phi2) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2)))) #s(literal 1/2 binary64)))))
#s(approx phi2 phi2)
#s(approx (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
#s(approx (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))))
#s(approx (+ (cos phi1) (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2)))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 #s(literal -1/720 binary64) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 #s(literal -1/720 binary64) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
#s(approx (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi2 phi2) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 phi2 phi2) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi2 phi2) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi2 phi2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 phi2 phi2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (cos phi2)) (+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi2 phi2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (sin.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 phi2 phi2) (sin.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 phi2 phi2) (sin.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi2 phi2) (sin.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/24 binary64) (sin.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/24 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (* phi2 phi2) -1/2) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)))
#s(approx (* phi2 phi2) (*.f64 phi2 phi2))
#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) (.f64 phi2 phi2))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)) #s(literal 1/2 binary64)))))
#s(approx (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)))
#s(approx (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)) #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) (.f64 phi2 phi2)) #s(literal 1/2 binary64)))
#s(approx (* (* phi2 phi2) 1/24) (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/24 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/24 binary64) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/24 binary64) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/24 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/24 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (cos phi2) (cos.f64 phi2))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 phi2)))))
#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) (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) (pow.f64 phi2 #s(literal -4 binary64))) (.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal -2 binary64))))))
#s(approx (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal -2 binary64))))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) (.f64 (.f64 phi2 phi2) (-.f64 #s(literal 1/24 binary64) (*.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal -2 binary64))))))

eval243.0ms (2.2%)

Memory: -12.1MiB live, 266.3MiB allocated; 95ms collecting garbage
Compiler: Compiled 85 273 to 6 464 computations (92.4% saved)

prune164.0ms (1.5%)

Memory

8.6MiB live, 199.4MiB allocated; 12ms collecting garbage

Pruning

63 alts after pruning (62 fresh and 1 done)

	Pruned	Kept	Total
New	1 162	19	1 181
Fresh	11	43	54
Picked	5	0	5
Done	0	1	1
Total	1 178	63	1 241

Accuracy

99.9%

Counts

1 241 → 63

Alt Table

Click to see full alt table

Status	Accuracy	Program
	66.3%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))))
	53.7%	(+.f64 (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 (.f64 lambda1 lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64)) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 3 binary64)) (+.f64 (.f64 lambda1 lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64)) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))))))
	83.8%	(+.f64 lambda1 (atan2.f64 (.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi2) #s(literal 1 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (.f64 (sin.f64 phi2) #s(literal 0 binary64))) (-.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(literal 1 binary64))) (.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (.f64 (cos.f64 phi2) #s(literal 1 binary64)))))) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) lambda1)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (+.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 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi2) #s(literal 1 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (.f64 (sin.f64 phi2) #s(literal 0 binary64))) (-.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) #s(literal 1 binary64))) (.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (*.f64 (cos.f64 phi2) #s(literal 1 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2))))))
	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (+.f64 (.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	89.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (+.f64 (.f64 (.f64 (sin.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (cos.f64 lambda1))))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	80.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))
	77.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) #s(approx (+ ( (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (* (sin lambda1) (sin lambda2)) (cos phi2))) (cos.f64 (-.f64 lambda1 lambda2))))))
	84.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
	82.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2))))))
	81.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	98.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
	93.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64))) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
	58.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64)))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) (-.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
	98.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))))))
	60.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (pow.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) (.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))))
	93.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))))
	98.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (+.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	98.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))))))
	81.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	80.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))
	98.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))))
	77.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
	75.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64)))))))
	73.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 ( (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (cos.f64 (-.f64 lambda1 lambda2))))))
	83.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64)) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	81.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(approx (+ ( (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	81.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(approx (+ ( (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) #s(approx (+ ( (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (+.f64 (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))))
	81.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (.f64 (+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2)) #s(literal 1 binary64)))))
	77.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (/.f64 (+.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
	71.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (/.f64 (+.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)))))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
	72.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (/.f64 (+.f64 (-.f64 lambda1 lambda2) phi1) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 (-.f64 lambda1 lambda2) phi1) #s(literal 2 binary64))))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
	62.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))))
	76.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (+.f64 (/.f64 (neg.f64 lambda2) lambda1) #s(literal 1 binary64)) lambda1)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	83.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))) lambda1)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	78.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) lambda1)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) #s(approx (* -1/2 (cos lambda2)) #s(literal -1/2 binary64)))) (neg.f64 (sin.f64 lambda2)))) (cos.f64 lambda2)))))))
	81.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) lambda1)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 #s(approx (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2))) #s(literal -1/2 binary64))) (neg.f64 (sin.f64 lambda2)))) (cos.f64 lambda2)))))))
	84.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) lambda1)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (.f64 lambda1 #s(approx (- ( lambda1 (+ (* (* 1/6 lambda1) (neg (sin lambda2))) (* -1/2 (cos lambda2)))) (neg (sin lambda2))) (sin.f64 lambda2))) (cos.f64 lambda2)))))))
	84.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) #s(approx ( (cos lambda2) lambda1) lambda1)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	67.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
	72.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (neg (sin lambda2)) ( (cos lambda2) lambda1)) (+.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64))) lambda1)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	83.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (neg (sin lambda2)) ( (cos lambda2) lambda1)) (.f64 lambda1 (+.f64 (/.f64 (neg.f64 (sin.f64 lambda2)) lambda1) (cos.f64 lambda2)))))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	58.0%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (.f64 (.f64 phi2 phi2) (-.f64 (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2)) #s(literal 1/24 binary64))) #s(literal 1/2 binary64))) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
	58.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
	68.7%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
	58.6%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
	66.8%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (+.f64 (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)))) (cos.f64 (-.f64 lambda1 lambda2))))))
	68.0%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (+.f64 (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 ( (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (cos.f64 (-.f64 lambda1 lambda2))))))
	54.8%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (+.f64 (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2)) #s(literal 1 binary64))) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	59.1%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (+.f64 (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2)) #s(literal 1 binary64))) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	74.0%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (+.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	67.9%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (+.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	76.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
	76.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))))))
	75.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
	69.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
	58.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
	58.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))))
	57.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))))
	57.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
	59.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
	98.6%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))) lambda1) #s(literal 1 binary64)) lambda1))
✓	56.4%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

Compiler

Compiled 8 993 to 2 752 computations (69.4% saved)

regimes217.0ms (2%)

Memory

17.0MiB live, 241.5MiB allocated; 21ms collecting garbage

Counts

109 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

35.0ms	(cos.f64 phi1)
35.0ms	lambda2
34.0ms	(cos.f64 phi2)
28.0ms	lambda1
27.0ms	phi2

Results

Accuracy	Segments	Branch
99.7%	1	`(cos.f64 phi1)`
99.7%	1	`(cos.f64 phi2)`
99.7%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (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 28 to 40 computations (-42.9% saved)

regimes221.0ms (2%)

Memory

28.5MiB live, 212.3MiB allocated; 32ms collecting garbage

Counts

97 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

49.0ms	phi2
43.0ms	(cos.f64 phi2)
29.0ms	lambda2
29.0ms	lambda1
23.0ms	phi1

Results

Accuracy	Segments	Branch
99.7%	1	`(cos.f64 phi1)`
99.7%	1	`(cos.f64 phi2)`
99.7%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (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 28 to 40 computations (-42.9% saved)

regimes228.0ms (2.1%)

Memory

-42.0MiB live, 207.7MiB allocated; 55ms collecting garbage

Counts

95 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

40.0ms	(cos.f64 phi2)
36.0ms	(cos.f64 phi1)
34.0ms	phi1
29.0ms	lambda1
22.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))

Results

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

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes134.0ms (1.2%)

Memory

21.8MiB live, 160.6MiB allocated; 10ms collecting garbage

Counts

70 → 1

Calls

Call 1

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

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

Calls

7 calls:

24.0ms	phi2
21.0ms	phi1
20.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
17.0ms	lambda2
17.0ms	lambda1

Results

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

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes152.0ms (1.4%)

Memory

26.4MiB live, 180.8MiB allocated; 18ms collecting garbage

Counts

51 → 1

Calls

Call 1

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

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

Calls

7 calls:

44.0ms	phi1
28.0ms	(cos.f64 phi1)
25.0ms	lambda2
13.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
13.0ms	lambda1

Results

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

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes115.0ms (1%)

Memory

-12.0MiB live, 128.0MiB allocated; 30ms collecting garbage

Counts

49 → 2

Calls

Call 1

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

Outputs

(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) #s(approx (* (cos lambda2) lambda1) lambda1)))) (+.f64 #s(approx (cos phi1) (+.f64 (*.f64 (-.f64 (*.f64 (+.f64 (*.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))

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

Calls

7 calls:

29.0ms	lambda1
17.0ms	phi1
16.0ms	(cos.f64 phi1)
12.0ms	lambda2
12.0ms	phi2

Results

Accuracy	Segments	Branch
90.5%	2	`phi2`
87.8%	2	`(cos.f64 phi1)`
90.8%	2	`(cos.f64 phi2)`
84.0%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))`
84.0%	1	`lambda1`
84.0%	1	`lambda2`
88.1%	2	`phi1`

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes18.0ms (0.2%)

Memory

-22.0MiB live, 23.5MiB allocated; 6ms collecting garbage

Counts

45 → 2

Calls

Call 1

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

Outputs

(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (*.f64 (-.f64 (*.f64 (+.f64 (*.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))

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

Calls

1 calls:

11.0ms

(cos.f64 phi2)

Results

Accuracy	Segments	Branch
90.8%	2	`(cos.f64 phi2)`

Compiler

Compiled 2 to 5 computations (-150% saved)

regimes13.0ms (0.1%)

Memory

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

Counts

44 → 2

Calls

Call 1

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

Outputs

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

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

Calls

1 calls:

11.0ms

(cos.f64 phi2)

Results

Accuracy	Segments	Branch
90.6%	2	`(cos.f64 phi2)`

Compiler

Compiled 2 to 5 computations (-150% saved)

regimes25.0ms (0.2%)

Memory

-9.9MiB live, 35.4MiB allocated; 6ms collecting garbage

Counts

36 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

2 calls:

14.0ms	phi2
9.0ms	(cos.f64 phi2)

Results

Accuracy	Segments	Branch
87.7%	2	`phi2`
90.0%	3	`(cos.f64 phi2)`

Compiler

Compiled 3 to 9 computations (-200% saved)

regimes52.0ms (0.5%)

Memory

2.2MiB live, 57.9MiB allocated; 22ms collecting garbage

Counts

33 → 2

Calls

Call 1

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

Outputs

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

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

Calls

4 calls:

24.0ms	(cos.f64 phi1)
9.0ms	phi1
9.0ms	phi2
8.0ms	(cos.f64 phi2)

Results

Accuracy	Segments	Branch
86.3%	2	`phi2`
77.0%	1	`(cos.f64 phi1)`
79.0%	2	`phi1`
86.7%	2	`(cos.f64 phi2)`

Compiler

Compiled 6 to 18 computations (-200% saved)

regimes10.0ms (0.1%)

Memory

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

Counts

31 → 2

Calls

Call 1

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

Outputs

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

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

Calls

1 calls:

8.0ms

(cos.f64 phi2)

Results

Accuracy	Segments	Branch
86.7%	2	`(cos.f64 phi2)`

Compiler

Compiled 2 to 5 computations (-150% saved)

regimes67.0ms (0.6%)

Memory

6.0MiB live, 51.1MiB allocated; 7ms collecting garbage

Counts

21 → 2

Calls

Call 1

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

Outputs

(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (neg (sin lambda2)) (* (cos lambda2) lambda1)) lambda1))) (+.f64 #s(approx (cos phi1) (+.f64 (*.f64 (-.f64 (*.f64 (+.f64 (*.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))

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

Calls

5 calls:

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

Results

Accuracy	Segments	Branch
80.5%	3	`lambda2`
78.8%	3	`(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))`
75.5%	1	`lambda1`
81.1%	2	`phi2`
82.0%	2	`(cos.f64 phi2)`

Compiler

Compiled 25 to 31 computations (-24% saved)

regimes17.0ms (0.2%)

Memory

-23.3MiB live, 22.2MiB allocated; 6ms collecting garbage

Counts

20 → 2

Calls

Call 1

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

Outputs

(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (*.f64 (-.f64 (*.f64 (+.f64 (*.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 (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (cos.f64 (-.f64 lambda1 lambda2))))))

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

Calls

2 calls:

10.0ms	(cos.f64 phi2)
6.0ms	phi2

Results

Accuracy	Segments	Branch
79.6%	2	`phi2`
80.0%	2	`(cos.f64 phi2)`

Compiler

Compiled 3 to 9 computations (-200% saved)

regimes34.0ms (0.3%)

Memory

-7.3MiB live, 38.5MiB allocated; 6ms collecting garbage

Counts

19 → 2

Calls

Call 1

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

Outputs

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

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

Calls

4 calls:

16.0ms	lambda2
5.0ms	phi1
5.0ms	phi2
5.0ms	(cos.f64 phi2)

Results

Accuracy	Segments	Branch
75.5%	1	`lambda2`
75.5%	1	`phi1`
78.3%	2	`phi2`
79.0%	2	`(cos.f64 phi2)`

Compiler

Compiled 5 to 17 computations (-240% saved)

regimes14.0ms (0.1%)

Memory

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

Counts

15 → 2

Calls

Call 1

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

Outputs

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

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

Calls

3 calls:

4.0ms	phi2
4.0ms	(cos.f64 phi2)
4.0ms	(cos.f64 phi1)

Results

Accuracy	Segments	Branch
75.5%	1	`phi2`
75.5%	1	`(cos.f64 phi1)`
78.1%	2	`(cos.f64 phi2)`

Compiler

Compiled 5 to 14 computations (-180% saved)

regimes5.0ms (0%)

Memory

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

Counts

14 → 2

Calls

Call 1

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

Outputs

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

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

Calls

1 calls:

4.0ms

(cos.f64 phi2)

Results

Accuracy	Segments	Branch
77.5%	2	`(cos.f64 phi2)`

Compiler

Compiled 2 to 5 computations (-150% saved)

regimes45.0ms (0.4%)

Memory

-1.6MiB live, 50.5MiB allocated; 18ms collecting garbage

Counts

12 → 2

Calls

Call 1

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

Outputs

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

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
68.0%	1	`lambda1`
68.0%	1	`lambda2`
69.7%	2	`(cos.f64 phi1)`
69.6%	2	`phi1`
68.0%	1	`phi2`
68.0%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))`
70.3%	2	`(cos.f64 phi2)`

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes38.0ms (0.3%)

Memory

-3.7MiB live, 41.3MiB allocated; 24ms collecting garbage

Counts

10 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes53.0ms (0.5%)

Memory

-17.4MiB live, 27.8MiB allocated; 19ms collecting garbage

Counts

4 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes11.0ms (0.1%)

Memory

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

Counts

3 → 1

Calls

Call 1

Inputs

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

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

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes15.0ms (0.1%)

Memory

-25.3MiB live, 21.0MiB allocated; 4ms collecting garbage

Counts

2 → 1

Calls

Call 1

Inputs

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

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes8.0ms (0.1%)

Memory

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

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 28 to 40 computations (-42.9% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.9997248303644813	0.9998955264329229

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.9997248303644813	0.9998955264329229

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.9997248303644813	0.9998955264329229

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	0.9997248303644813	0.9998955264329229
0.0ms	-0.8141766098975741	-0.8135539135729207

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.9885382128020236	0.9938712969196118

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.9885382128020236	0.9938712969196118

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.9462437283954839	0.9479958034231716

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.9479958034231716	0.9611654991176025

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-0.04939277484960531	-0.04601892834879225

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-0.49664527929937824	-0.47272085741732023

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-0.3552850006686462	-0.31865160282285443

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-0.036972774540878675	-0.031302581741586566

Compiler

Compiled 22 to 21 computations (4.5% saved)

simplify128.0ms (1.2%)

Memory

-26.3MiB live, 74.5MiB allocated; 14ms collecting garbage

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	222	1584
1	339	1494
2	652	1441
3	1606	1441
4	5702	1441

Stop Event

1×	node limit

Calls

Call 1

Inputs
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 2251349453722511/2251799813685248 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) #s(approx ( (cos lambda2) lambda1) lambda1)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 lambda1 (atan2.f64 #s(approx ( (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 2251349453722511/2251799813685248 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 2251349453722511/2251799813685248 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64)) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal -7331860193359167/9007199254740992 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))) (if (<=.f64 (cos.f64 phi2) #s(literal 2251349453722511/2251799813685248 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 4458563631096791/4503599627370496 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))) (+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 4458563631096791/4503599627370496 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))) (+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 8529817694239719/9007199254740992 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (neg (sin lambda2)) ( (cos lambda2) lambda1)) lambda1))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 lambda1 (atan2.f64 #s(approx ( (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 4278419646001971/4503599627370496 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 ( (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal -3458764513820541/72057594037927936 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))) (+.f64 lambda1 (atan2.f64 #s(approx ( (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal -1080863910568919/2251799813685248 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))) (+.f64 lambda1 (atan2.f64 #s(approx ( (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal -3152519739159347/9007199254740992 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))) (+.f64 lambda1 (atan2.f64 #s(approx ( (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal -1261007895663739/36028797018963968 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (+.f64 (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (cos.f64 (-.f64 lambda1 lambda2)))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

Outputs
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 2251349453722511/2251799813685248 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) #s(approx ( (cos lambda2) lambda1) lambda1)))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 lambda1 (atan2.f64 #s(approx ( (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 2251349453722511/2251799813685248 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 2251349453722511/2251799813685248 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64)) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal -7331860193359167/9007199254740992 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))) (if (<=.f64 (cos.f64 phi2) #s(literal 2251349453722511/2251799813685248 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(if (<=.f64 (cos.f64 phi2) #s(literal -7331860193359167/9007199254740992 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))) (if (<=.f64 (cos.f64 phi2) #s(literal 2251349453722511/2251799813685248 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 4458563631096791/4503599627370496 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))) (+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 4458563631096791/4503599627370496 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))) (+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 4458563631096791/4503599627370496 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))) (+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 4458563631096791/4503599627370496 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))) (+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 8529817694239719/9007199254740992 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (neg (sin lambda2)) ( (cos lambda2) lambda1)) lambda1))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 lambda1 (atan2.f64 #s(approx ( (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 4278419646001971/4503599627370496 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 ( (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal -3458764513820541/72057594037927936 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))) (+.f64 lambda1 (atan2.f64 #s(approx ( (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal -3458764513820541/72057594037927936 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))) (+.f64 lambda1 (atan2.f64 #s(approx ( (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal -1080863910568919/2251799813685248 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))) (+.f64 lambda1 (atan2.f64 #s(approx ( (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal -1080863910568919/2251799813685248 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) #s(approx (+ (cos phi1) ( (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))) (+.f64 lambda1 (atan2.f64 #s(approx ( (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal -3152519739159347/9007199254740992 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))) (+.f64 lambda1 (atan2.f64 #s(approx ( (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal -3152519739159347/9007199254740992 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))) (+.f64 lambda1 (atan2.f64 #s(approx ( (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal -1261007895663739/36028797018963968 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (+.f64 (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal -1261007895663739/36028797018963968 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2)) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.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 (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (cos.f64 (-.f64 lambda1 lambda2)))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) #s(approx (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (+ (+ (cos (- lambda1 lambda2)) (cos phi1)) (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2)))) (.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

derivations516.0ms (4.7%)

Memory

-8.1MiB live, 376.9MiB allocated; 77ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 1 750 to 223 computations (87.3% saved)

preprocess162.0ms (1.5%)

Memory

-9.3MiB live, 182.4MiB allocated; 50ms collecting garbage

Remove

(abs phi2)

(abs phi1)

Compiler

Compiled 4 428 to 1 002 computations (77.4% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze680.0ms (6.1%)

sample5.1s (46.1%)

explain564.0ms (5.1%)

preprocess147.0ms (1.3%)

eval0.0ms (0%)

prune1.0ms (0%)

series31.0ms (0.3%)

rewrite203.0ms (1.8%)

eval48.0ms (0.4%)

prune47.0ms (0.4%)

series95.0ms (0.9%)

rewrite205.0ms (1.8%)

eval194.0ms (1.8%)

prune83.0ms (0.7%)

series102.0ms (0.9%)

rewrite194.0ms (1.8%)

eval162.0ms (1.5%)

prune125.0ms (1.1%)

series153.0ms (1.4%)

rewrite225.0ms (2%)

eval243.0ms (2.2%)

prune164.0ms (1.5%)

regimes217.0ms (2%)

regimes221.0ms (2%)

regimes228.0ms (2.1%)

regimes134.0ms (1.2%)

regimes152.0ms (1.4%)

regimes115.0ms (1%)

regimes18.0ms (0.2%)

regimes13.0ms (0.1%)

regimes25.0ms (0.2%)

regimes52.0ms (0.5%)

regimes10.0ms (0.1%)

regimes67.0ms (0.6%)

regimes17.0ms (0.2%)

regimes34.0ms (0.3%)

regimes14.0ms (0.1%)

regimes5.0ms (0%)

regimes45.0ms (0.4%)

regimes38.0ms (0.3%)

regimes53.0ms (0.5%)

regimes11.0ms (0.1%)

regimes15.0ms (0.1%)

regimes8.0ms (0.1%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

simplify128.0ms (1.2%)

derivations516.0ms (4.7%)

preprocess162.0ms (1.5%)

end0.0ms (0%)

Profiling