Metrics for Midpoint on a great circle

start0.0ms (0%)

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

analyze586.0ms (5%)

Memory

12.4MiB live, 737.7MiB allocated; 159ms 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)

sample4.9s (42.4%)

Memory

109.5MiB live, 4 951.5MiB allocated; 1.6s collecting garbage

Samples

3.9s	4 492×	1	valid
629.0ms	3 760×	0	valid
3.0ms	4×	2	valid

Precisions

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

ival-cos: 2.7s (65.4% of total)

ival-sin: 586.0ms (14.3% of total)

ival-atan2: 303.0ms (7.4% of total)

adjust: 239.0ms (5.8% of total)

ival-mult!: 178.0ms (4.3% of total)

ival-add!: 70.0ms (1.7% of total)

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

Bogosity

explain454.0ms (3.9%)

Memory

-43.2MiB live, 581.8MiB allocated; 174ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Underpredictions	Example	Subexpression
70	121	(8.748469211267403e+299 -1.4065695847854662e-130 212321616159444.56 1.6564439929504302e+203)	0	-	`(sin.f64 (-.f64 lambda1 lambda2))`
70	121	(8.748469211267403e+299 -1.4065695847854662e-130 212321616159444.56 1.6564439929504302e+203)	0	-	`(cos.f64 (-.f64 lambda1 lambda2))`
4	0	-	1	(-4.4490636820403485e+268 5.5658734410997796e-151 2.3638129942658595e-98 5.896855016040659e-95)	`(+.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	191	0
`sin.f64`	`(sin.f64 (-.f64 lambda1 lambda2))`	sensitivity	191	0
`+.f64`	`(+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))`	cancellation	3	1

Confusion

	Predicted +	Predicted -
+	6	0
-	187	63

Precision

0.031088082901554404

Recall

1.0

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	6	0	0
-	187	1	62

Precision?

0.030927835051546393

Recall?

1.0

Freqs

test

number	freq
0	63
1	2
2	190
3	1

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

306.0ms	380×	1	valid
20.0ms	132×	0	valid

Compiler

Compiled 186 to 46 computations (75.3% saved)

Precisions

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

ival-cos: 207.0ms (70% of total)

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

adjust: 18.0ms (6.1% of total)

ival-atan2: 17.0ms (5.7% of total)

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

ival-add!: 5.0ms (1.7% of total)

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

preprocess190.0ms (1.6%)

Memory

42.6MiB live, 232.8MiB allocated; 40ms 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	19

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)) (fma.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.8MiB live, 0.8MiB allocated; 0ms collecting garbage

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	98.7%	(+.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)

series24.0ms (0.2%)

Memory

-6.6MiB live, 40.1MiB allocated; 2ms 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
3.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)))
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	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)))

rewrite280.0ms (2.4%)

Memory

-1.8MiB live, 283.3MiB allocated; 82ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

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

Stop Event

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

Counts

116 → 185

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

eval35.0ms (0.3%)

Memory: 17.6MiB live, 62.5MiB allocated; 8ms collecting garbage
Compiler: Compiled 7 097 to 1 151 computations (83.8% saved)

prune60.0ms (0.5%)

Memory

-33.7MiB live, 56.7MiB allocated; 15ms collecting garbage

Pruning

32 alts after pruning (32 fresh and 0 done)

	Pruned	Kept	Total
New	188	32	220
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	189	32	221

Accuracy

99.0%

Counts

221 → 32

Alt Table

Click to see full alt table

Status	Accuracy	Program
	66.1%	(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.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)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1)))))))
	77.5%	(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.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)) (fma.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)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))))))
	52.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	93.4%	(+.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)))))))
	98.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.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))) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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))))))))
	93.5%	(+.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.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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)) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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)))))))))
	65.5%	(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (/.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)))))
▶	64.3%	(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (/.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)))))
▶	98.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
	98.5%	(+.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)) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))))))
	98.4%	(+.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)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))))
	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 (neg.f64 lambda1) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)))))))
	74.5%	(+.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))))))
▶	72.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	76.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	75.3%	(+.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))))))
	75.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) #s(literal 1 binary64)))))
	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
	75.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))))
	90.9%	(+.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))))))
	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	71.8%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	71.7%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.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 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	71.6%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.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))))))
	71.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 (sin.f64 lambda1) (cos.f64 phi2) (.f64 (neg.f64 lambda2) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	73.0%	(+.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))))))
	46.8%	#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)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))))
	98.7%	#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)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) #s(literal 1 binary64)) lambda1))
▶	46.8%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

Compiler

Compiled 2 326 to 1 352 computations (41.9% saved)

series129.0ms (1.1%)

Memory

26.9MiB live, 216.3MiB allocated; 34ms collecting garbage

Counts

52 → 408

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

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

Calls

12 calls:

Time	Variable		Point	Expression
15.0ms	phi1	@	0	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) lambda1 (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 phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (cos phi1) phi1 (* (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)))) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (cos (- lambda1 lambda2)) (sin (/ (PI) 2)) (+ 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 phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (cos phi1) (+ (* (- (* 1/24 (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (- (* 1/24 (* phi1 phi1)) 1/2) (* 1/24 (* phi1 phi1)) 1/24 (* phi1 phi1) 1/2 1 (* (cos phi2) (cos (- lambda1 lambda2))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (sin (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)))) 2)))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (sin (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)))) 2))) (+ (cos phi1) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (sin (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)))) 2)) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (sin (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)))) 2) (+ (sin (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (sin (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)))) (sin (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)) (+ phi2 (/ (PI) 2)) (sin (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (pow (cos phi1) 2) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (pow (cos phi1) 2) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (/ (- (pow (cos phi1) 2) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (- (pow (cos phi1) 2) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (pow (cos phi1) 2) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos (- lambda1 lambda2)) (cos phi2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))
14.0ms	lambda1	@	-inf	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) lambda1 (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 phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (cos phi1) phi1 (* (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)))) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (cos (- lambda1 lambda2)) (sin (/ (PI) 2)) (+ 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 phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (cos phi1) (+ (* (- (* 1/24 (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (- (* 1/24 (* phi1 phi1)) 1/2) (* 1/24 (* phi1 phi1)) 1/24 (* phi1 phi1) 1/2 1 (* (cos phi2) (cos (- lambda1 lambda2))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (sin (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)))) 2)))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (sin (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)))) 2))) (+ (cos phi1) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (sin (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)))) 2)) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (sin (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)))) 2) (+ (sin (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (sin (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)))) (sin (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)) (+ phi2 (/ (PI) 2)) (sin (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (pow (cos phi1) 2) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (pow (cos phi1) 2) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (/ (- (pow (cos phi1) 2) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (- (pow (cos phi1) 2) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (pow (cos phi1) 2) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos (- lambda1 lambda2)) (cos phi2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))
12.0ms	lambda1	@	0	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) lambda1 (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 phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (cos phi1) phi1 (* (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)))) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (cos (- lambda1 lambda2)) (sin (/ (PI) 2)) (+ 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 phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (cos phi1) (+ (* (- (* 1/24 (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (- (* 1/24 (* phi1 phi1)) 1/2) (* 1/24 (* phi1 phi1)) 1/24 (* phi1 phi1) 1/2 1 (* (cos phi2) (cos (- lambda1 lambda2))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (sin (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)))) 2)))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (sin (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)))) 2))) (+ (cos phi1) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (sin (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)))) 2)) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (sin (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)))) 2) (+ (sin (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (sin (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)))) (sin (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)) (+ phi2 (/ (PI) 2)) (sin (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (pow (cos phi1) 2) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (pow (cos phi1) 2) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (/ (- (pow (cos phi1) 2) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (- (pow (cos phi1) 2) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (pow (cos phi1) 2) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos (- lambda1 lambda2)) (cos phi2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))
10.0ms	phi1	@	-inf	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) lambda1 (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 phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (cos phi1) phi1 (* (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)))) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (cos (- lambda1 lambda2)) (sin (/ (PI) 2)) (+ 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 phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (cos phi1) (+ (* (- (* 1/24 (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (- (* 1/24 (* phi1 phi1)) 1/2) (* 1/24 (* phi1 phi1)) 1/24 (* phi1 phi1) 1/2 1 (* (cos phi2) (cos (- lambda1 lambda2))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (sin (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)))) 2)))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (sin (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)))) 2))) (+ (cos phi1) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (sin (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)))) 2)) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (sin (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)))) 2) (+ (sin (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (sin (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)))) (sin (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)) (+ phi2 (/ (PI) 2)) (sin (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (pow (cos phi1) 2) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (pow (cos phi1) 2) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (/ (- (pow (cos phi1) 2) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (- (pow (cos phi1) 2) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (pow (cos phi1) 2) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos (- lambda1 lambda2)) (cos phi2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))
10.0ms	phi2	@	-inf	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) lambda1 (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 phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (+ (cos phi1) (* (cos phi2) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (cos phi1) phi1 (* (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)))) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (cos (- lambda1 lambda2)) (sin (/ (PI) 2)) (+ 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 phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (cos phi1) (+ (* (- (* 1/24 (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (- (* 1/24 (* phi1 phi1)) 1/2) (* 1/24 (* phi1 phi1)) 1/24 (* phi1 phi1) 1/2 1 (* (cos phi2) (cos (- lambda1 lambda2))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (sin (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)))) 2)))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (sin (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)))) 2))) (+ (cos phi1) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (sin (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)))) 2)) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (sin (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)))) 2) (+ (sin (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (sin (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)))) (sin (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (- (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)) (+ phi2 (/ (PI) 2)) (sin (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2))) (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (pow (cos phi1) 2) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (pow (cos phi1) 2) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (/ (- (pow (cos phi1) 2) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (- (pow (cos phi1) 2) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (pow (cos phi1) 2) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos (- lambda1 lambda2)) (cos phi2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))

rewrite266.0ms (2.3%)

Memory

-11.7MiB live, 354.4MiB allocated; 56ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1708	20460
0	1813	18394
0	8356	17962

Stop Event

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

Counts

460 → 543

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

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

eval218.0ms (1.9%)

Memory: 21.4MiB live, 308.0MiB allocated; 53ms collecting garbage
Compiler: Compiled 49 204 to 4 834 computations (90.2% saved)

prune85.0ms (0.7%)

Memory

-3.0MiB live, 189.4MiB allocated; 14ms collecting garbage

Pruning

52 alts after pruning (51 fresh and 1 done)

	Pruned	Kept	Total
New	934	30	964
Fresh	6	21	27
Picked	4	1	5
Done	0	0	0
Total	944	52	996

Accuracy

99.1%

Counts

996 → 52

Alt Table

Click to see full alt table

Status	Accuracy	Program
	66.1%	(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.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)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1)))))))
	77.5%	(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.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)) (fma.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)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))))))
▶	64.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 (cos.f64 phi1) (/.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)))))
	35.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	93.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (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)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (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))))))
	93.4%	(+.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 (-.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))) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (+.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)))))))))
	66.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (exp.f64 (.f64 (log.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)))))))
	98.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.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))) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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))))))))
	49.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (pow.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (fma.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #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) (fma.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)))))))))
	93.5%	(+.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.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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)) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (/.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))))))))
	98.5%	(+.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)) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))))))
	98.4%	(+.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)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))))
	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 (neg.f64 lambda1) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)))))))
	74.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (fma.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)))))))))
	63.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
	74.5%	(+.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))))))
	72.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))))
	53.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 #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))))) (cos.f64 (-.f64 lambda1 lambda2))))))
	55.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 #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))))) (cos.f64 (-.f64 lambda1 lambda2))))))
	54.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)))) (cos.f64 (-.f64 lambda1 lambda2))))))
	59.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
	76.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	52.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/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1))) #s(literal 1 binary64)) (-.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))))))
	75.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(approx (+ ( (- (* 1/24 (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	88.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (/ (- (pow (cos phi1) 2) (pow ( (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (/.f64 (-.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))
	68.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (/ (- (pow (cos phi1) 2) (pow ( (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
	75.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) #s(literal 1 binary64)))))
▶	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
	75.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))))
	58.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda2)) (sin.f64 (-.f64 (+.f64 lambda2 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1))))))))
	85.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (/.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))))))
	64.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	72.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 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))))))))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	72.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 lambda1 (cos.f64 lambda2))))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	71.8%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	71.7%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.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 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	71.6%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.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))))))
	58.3%	(+.f64 lambda1 (atan2.f64 (.f64 #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))))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	58.3%	(+.f64 lambda1 (atan2.f64 (.f64 #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))))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	58.0%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	65.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (/.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))))))
	72.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	61.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (/.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)))))
	73.0%	(+.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))))))
▶	58.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	46.8%	#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)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))))
	98.7%	#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)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) #s(literal 1 binary64)) lambda1))
✓	46.8%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

Compiler

Compiled 4 616 to 2 591 computations (43.9% saved)

series78.0ms (0.7%)

Memory

27.5MiB live, 168.5MiB allocated; 11ms collecting garbage

Counts

68 → 420

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

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

Calls

12 calls:

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

rewrite257.0ms (2.2%)

Memory

-27.5MiB live, 253.5MiB allocated; 39ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1489	16520
0	1605	14559
0	8155	14286

Stop Event

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

Counts

488 → 601

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

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

eval190.0ms (1.6%)

Memory: 9.8MiB live, 488.8MiB allocated; 46ms collecting garbage
Compiler: Compiled 65 166 to 6 042 computations (90.7% saved)

prune137.0ms (1.2%)

Memory

-17.3MiB live, 201.5MiB allocated; 62ms collecting garbage

Pruning

72 alts after pruning (71 fresh and 1 done)

	Pruned	Kept	Total
New	1 123	40	1 163
Fresh	15	31	46
Picked	5	0	5
Done	0	1	1
Total	1 143	72	1 215

Accuracy

99.1%

Counts

1 215 → 72

Alt Table

Click to see full alt table

Status	Accuracy	Program
	66.1%	(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.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)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1)))))))
	29.5%	(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 #s(approx ( (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.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 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))
	77.5%	(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.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)) (fma.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)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))))))
	63.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 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)))))
▶	63.6%	(+.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) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
	58.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda2)) (sin.f64 (-.f64 (+.f64 lambda2 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1))))))))
	93.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (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)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (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))))))
	93.4%	(+.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 (-.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))) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (+.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)))))))))
	66.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (exp.f64 (.f64 (log.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)))))))
	98.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.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))) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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))))))))
	49.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (pow.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (fma.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #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) (fma.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)))))))))
	93.5%	(+.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.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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)) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (/.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)))) #s(approx (- (* (sin (- lambda1 lambda2)) 0) (* (cos (- lambda1 lambda2)) 1)) (-.f64 (.f64 lambda1 (-.f64 (neg.f64 (sin.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2))))) (cos.f64 lambda2))))))))
	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (/.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)))) #s(approx (- (* (sin (- lambda1 lambda2)) 0) (* (cos (- lambda1 lambda2)) 1)) (-.f64 (*.f64 lambda1 (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2))))))))
	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (/.f64 #s(approx (- (* (* (sin (- lambda1 lambda2)) 0) (* (sin (- lambda1 lambda2)) 0)) (* (* (cos (- lambda1 lambda2)) 1) (* (cos (- lambda1 lambda2)) 1))) (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64))))))))
	98.5%	(+.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)) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))))))
	98.4%	(+.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)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))))
	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 (neg.f64 lambda1) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)))))))
	74.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (fma.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)))))))))
	53.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 #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))))) (cos.f64 (-.f64 lambda1 lambda2))))))
	55.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 #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))))) (cos.f64 (-.f64 lambda1 lambda2))))))
	54.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)))) (cos.f64 (-.f64 lambda1 lambda2))))))
	59.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
	88.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (/ (- (pow (cos phi1) 2) (pow ( (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (/.f64 (-.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))
	68.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (/ (- (pow (cos phi1) 2) (pow ( (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
	72.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) #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)))))))))
	76.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1))))))))
	75.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64))))))
	75.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))))
	72.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 lambda2)))) (cos.f64 phi2) (cos.f64 phi1)))))
	98.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))))))
	74.7%	(+.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 lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (cos.f64 phi2))))))
	74.4%	(+.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 lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda2) (cos.f64 phi1))))))
	75.3%	(+.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 lambda2) (cos phi2)) (cos phi1)) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))))
	85.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (/.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))))))
	64.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	72.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 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))))))))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	72.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 lambda1 (cos.f64 lambda2))))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 lambda1 (cos.f64 lambda2))))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
	88.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
	71.7%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.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 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	72.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #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))))) (cos.f64 (-.f64 lambda1 lambda2))))))
	71.1%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #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))))) (cos.f64 (-.f64 lambda1 lambda2))))))
	72.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)))) (cos.f64 (-.f64 lambda1 lambda2))))))
	71.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
	59.7%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #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))))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	59.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	60.1%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	71.6%	(+.f64 lambda1 (atan2.f64 (.f64 #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))))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
	71.5%	(+.f64 lambda1 (atan2.f64 (.f64 #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))))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
	65.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (/.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))))))
	72.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	26.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	61.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (/.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)))))
	53.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))) (/.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)))))
	58.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))))
	53.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	53.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))
	55.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 #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))))) (cos.f64 (-.f64 lambda1 lambda2))))))
	53.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)))) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	58.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
	60.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 #s(approx (- (* 1/24 (* phi1 phi1)) 1/2) #s(literal -1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	60.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(approx (+ (* (- (* 1/24 (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	72.8%	(+.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 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))))))
	72.7%	(+.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 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
	48.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	58.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 lambda1 (cos.f64 lambda2))))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	46.8%	#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)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))))
	98.7%	#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)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) #s(literal 1 binary64)) lambda1))
✓	46.8%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

Compiler

Compiled 6 780 to 3 885 computations (42.7% saved)

series252.0ms (2.2%)

Memory

43.7MiB live, 302.7MiB allocated; 51ms collecting garbage

Counts

83 → 500

Calls

Call 1

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

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

Calls

12 calls:

Time	Variable		Point	Expression
48.0ms	phi1	@	0	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))))) lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (pow (cos phi1) 3) (cos phi1) phi1 3 (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) 2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ 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 phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (cos phi1) (+ (* (- (* 1/24 (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (- (* 1/24 (* phi1 phi1)) 1/2) (* 1/24 (* phi1 phi1)) 1/24 (* phi1 phi1) 1/2 1 (* (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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (- (* lambda1 lambda1) (* lambda2 lambda2)) (* lambda1 lambda1) (* lambda2 lambda2) (+ lambda1 lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (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))) (cos phi2) (+ 1 (* (* phi2 phi2) (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2))) (* (* phi2 phi2) (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2)) (* phi2 phi2) (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2) (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) (+ 1/24 (* -1/720 (* phi2 phi2))) (* -1/720 (* phi2 phi2)) -1/720 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (cos lambda2) (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (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)))) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (* 1/2 (+ (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda1)))) (+ (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda1))) (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (+ lambda1 (+ phi2 (* 1/2 (PI)))) (+ phi2 (* 1/2 (PI))) (* 1/2 (PI)) (PI) (sin (- (+ phi2 (* 1/2 (PI))) lambda1)) (- (+ phi2 (* 1/2 (PI))) lambda1))
36.0ms	phi2	@	0	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))))) lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (pow (cos phi1) 3) (cos phi1) phi1 3 (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) 2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ 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 phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (cos phi1) (+ (* (- (* 1/24 (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (- (* 1/24 (* phi1 phi1)) 1/2) (* 1/24 (* phi1 phi1)) 1/24 (* phi1 phi1) 1/2 1 (* (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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (- (* lambda1 lambda1) (* lambda2 lambda2)) (* lambda1 lambda1) (* lambda2 lambda2) (+ lambda1 lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (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))) (cos phi2) (+ 1 (* (* phi2 phi2) (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2))) (* (* phi2 phi2) (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2)) (* phi2 phi2) (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2) (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) (+ 1/24 (* -1/720 (* phi2 phi2))) (* -1/720 (* phi2 phi2)) -1/720 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (cos lambda2) (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (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)))) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (* 1/2 (+ (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda1)))) (+ (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda1))) (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (+ lambda1 (+ phi2 (* 1/2 (PI)))) (+ phi2 (* 1/2 (PI))) (* 1/2 (PI)) (PI) (sin (- (+ phi2 (* 1/2 (PI))) lambda1)) (- (+ phi2 (* 1/2 (PI))) lambda1))
21.0ms	lambda1	@	inf	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))))) lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (pow (cos phi1) 3) (cos phi1) phi1 3 (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) 2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ 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 phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (cos phi1) (+ (* (- (* 1/24 (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (- (* 1/24 (* phi1 phi1)) 1/2) (* 1/24 (* phi1 phi1)) 1/24 (* phi1 phi1) 1/2 1 (* (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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (- (* lambda1 lambda1) (* lambda2 lambda2)) (* lambda1 lambda1) (* lambda2 lambda2) (+ lambda1 lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (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))) (cos phi2) (+ 1 (* (* phi2 phi2) (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2))) (* (* phi2 phi2) (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2)) (* phi2 phi2) (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2) (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) (+ 1/24 (* -1/720 (* phi2 phi2))) (* -1/720 (* phi2 phi2)) -1/720 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (cos lambda2) (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (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)))) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (* 1/2 (+ (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda1)))) (+ (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda1))) (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (+ lambda1 (+ phi2 (* 1/2 (PI)))) (+ phi2 (* 1/2 (PI))) (* 1/2 (PI)) (PI) (sin (- (+ phi2 (* 1/2 (PI))) lambda1)) (- (+ phi2 (* 1/2 (PI))) lambda1))
20.0ms	lambda2	@	inf	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))))) lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (pow (cos phi1) 3) (cos phi1) phi1 3 (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) 2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ 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 phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (cos phi1) (+ (* (- (* 1/24 (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (- (* 1/24 (* phi1 phi1)) 1/2) (* 1/24 (* phi1 phi1)) 1/24 (* phi1 phi1) 1/2 1 (* (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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (- (* lambda1 lambda1) (* lambda2 lambda2)) (* lambda1 lambda1) (* lambda2 lambda2) (+ lambda1 lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (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))) (cos phi2) (+ 1 (* (* phi2 phi2) (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2))) (* (* phi2 phi2) (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2)) (* phi2 phi2) (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2) (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) (+ 1/24 (* -1/720 (* phi2 phi2))) (* -1/720 (* phi2 phi2)) -1/720 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (cos lambda2) (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (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)))) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (* 1/2 (+ (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda1)))) (+ (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda1))) (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (+ lambda1 (+ phi2 (* 1/2 (PI)))) (+ phi2 (* 1/2 (PI))) (* 1/2 (PI)) (PI) (sin (- (+ phi2 (* 1/2 (PI))) lambda1)) (- (+ phi2 (* 1/2 (PI))) lambda1))
18.0ms	lambda1	@	0	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))))) lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (pow (cos phi1) 3) (cos phi1) phi1 3 (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) 2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ 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 phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (cos phi1) (+ (* (- (* 1/24 (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (- (* 1/24 (* phi1 phi1)) 1/2) (* 1/24 (* phi1 phi1)) 1/24 (* phi1 phi1) 1/2 1 (* (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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (- (* lambda1 lambda1) (* lambda2 lambda2)) (* lambda1 lambda1) (* lambda2 lambda2) (+ lambda1 lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (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))) (cos phi2) (+ 1 (* (* phi2 phi2) (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2))) (* (* phi2 phi2) (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2)) (* phi2 phi2) (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2) (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) (+ 1/24 (* -1/720 (* phi2 phi2))) (* -1/720 (* phi2 phi2)) -1/720 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (cos lambda2) (+ lambda1 (atan2 (* (cos phi2) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (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)))) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (sin lambda1) (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (* 1/2 (+ (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda1)))) (+ (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda1))) (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (+ lambda1 (+ phi2 (* 1/2 (PI)))) (+ phi2 (* 1/2 (PI))) (* 1/2 (PI)) (PI) (sin (- (+ phi2 (* 1/2 (PI))) lambda1)) (- (+ phi2 (* 1/2 (PI))) lambda1))

rewrite331.0ms (2.8%)

Memory

-16.9MiB live, 497.8MiB allocated; 122ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	2240	37090
0	2370	33613
0	8550	33042

Stop Event

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

Counts

583 → 669

Calls

Call 1

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

Outputs
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.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))) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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))))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.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))) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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))))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.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))) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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))) (/.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))) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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))) (/.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))) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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))))))))
lambda1
(atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.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))) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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 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))) (fma.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (fma.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))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2))))
(-.f64 lambda1 lambda2)
lambda2
(/.f64 (+.f64 (pow.f64 (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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)))))) #s(literal 3 binary64)) (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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)))))) #s(literal 3 binary64))) (fma.f64 (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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 (cos.f64 phi1) #s(literal 3 binary64)) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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 (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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)) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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 3 binary64)) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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)) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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))))) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)))) (.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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))))) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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 3 binary64)) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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)) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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 (neg.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (neg.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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 (cos.f64 phi1) #s(literal 3 binary64)) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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 (cos.f64 phi1) #s(literal 2 binary64)) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(pow.f64 (cos.f64 phi1) #s(literal 3 binary64))
(exp.f64 (*.f64 (log.f64 (cos.f64 phi1)) #s(literal 3 binary64)))
(sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 phi1))
(cos.f64 phi1)
phi1
#s(literal 3 binary64)
(/.f64 (+.f64 (pow.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (-.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)))) #s(literal 3 binary64))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (-.f64 (.f64 (-.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 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) (.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))))))))
(fma.f64 (neg.f64 (cos.f64 phi1)) (neg.f64 (cos.f64 phi1)) (-.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)))))
(fma.f64 (fabs.f64 (cos.f64 phi1)) (fabs.f64 (cos.f64 phi1)) (-.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)))))
(fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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 (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 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) #s(literal 3 binary64))) (fma.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (fma.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) (.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 (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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))
(.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
(pow.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64))
(exp.f64 (.f64 (log.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) #s(literal 2 binary64)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi2)) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) phi2))) #s(literal 2 binary64))
(fma.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)))
#s(literal 2 binary64)
(.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
(/.f64 (neg.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64))) (neg.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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)) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)))
(.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
(.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (pow.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)))
(pow.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64))
(exp.f64 (.f64 (log.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) #s(literal 3 binary64)))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 #s(approx ( (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))) (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 lambda1 (atan2.f64 #s(approx ( (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
(atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2)))
(/.f64 (+.f64 (pow.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(literal 3 binary64)) (pow.f64 #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (fma.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (-.f64 (.f64 #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))))
(+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) #s(literal 3 binary64)) #s(literal 1 binary64)) (fma.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1)) (.f64 (-.f64 (.f64 #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 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1)) #s(literal 1 binary64)))))
(fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))
(+.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 (-.f64 (pow.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (fma.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) (+.f64 #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)))))
(-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64))
(.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1))
#s(literal 1/24 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/2 binary64)
#s(literal 1 binary64)
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 #s(approx ( (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 lambda1 (atan2.f64 #s(approx ( (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))))
(sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))
(/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2))) (neg.f64 (+.f64 lambda1 lambda2)))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))
(-.f64 (/.f64 (.f64 lambda1 lambda1) (+.f64 lambda1 lambda2)) (/.f64 (.f64 lambda2 lambda2) (+.f64 lambda1 lambda2)))
(/.f64 (-.f64 (pow.f64 (.f64 lambda1 lambda1) #s(literal 3 binary64)) (pow.f64 (.f64 lambda2 lambda2) #s(literal 3 binary64))) (fma.f64 (.f64 lambda1 lambda1) (.f64 lambda1 lambda1) (fma.f64 (.f64 lambda2 lambda2) (.f64 lambda2 lambda2) (.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)))))
(-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2))
(*.f64 (fabs.f64 lambda1) (fabs.f64 lambda1))
(*.f64 (neg.f64 lambda1) (neg.f64 lambda1))
(*.f64 lambda1 lambda1)
(pow.f64 lambda1 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 lambda1) #s(literal 2 binary64)))
(*.f64 (fabs.f64 lambda2) (fabs.f64 lambda2))
(*.f64 (neg.f64 lambda2) (neg.f64 lambda2))
(*.f64 lambda2 lambda2)
(pow.f64 lambda2 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 lambda2) #s(literal 2 binary64)))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda2))))
(+.f64 lambda1 lambda2)
(/.f64 (+.f64 (pow.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (fma.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #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) (fma.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 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
(*.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 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 #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))))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 #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))))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))) (atan2.f64 (.f64 #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))))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1))))) (.f64 lambda1 (atan2.f64 (.f64 #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))))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #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))))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
(atan2.f64 (.f64 #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))))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1))))
(.f64 #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))))) (sin.f64 (-.f64 lambda1 lambda2)))
#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)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 phi2 phi2) (-.f64 (.f64 (.f64 phi2 phi2) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2)))) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.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))) (.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)))) (.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)))))))
(+.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))))
(.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)))
(*.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)))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 phi2 phi2) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2)))) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (fma.f64 (.f64 (.f64 phi2 phi2) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2)))) (.f64 (.f64 phi2 phi2) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2)))) (+.f64 #s(literal 1/4 binary64) (.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)))))
(-.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))
(.f64 (.f64 phi2 phi2) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2))))
(/.f64 (+.f64 #s(literal 1/13824 binary64) (pow.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2)) #s(literal 3 binary64))) (+.f64 #s(literal 1/576 binary64) (-.f64 (.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2)) (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2))) (.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2))))))
(+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2)))
(.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2))
#s(literal -1/720 binary64)
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (-.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1))
(+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))
(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)
(/.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) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))) (.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
(atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(*.f64 (cos.f64 phi2) (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))) (fma.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (fma.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)
(*.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 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.f64 (.f64 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) (.f64 (cos.f64 phi1) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))
(+.f64 (cos.f64 phi1) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
(.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
(.f64 #s(literal 2 binary64) (.f64 (sin.f64 (/.f64 (+.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) #s(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) #s(literal 3 binary64))) (fma.f64 (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 (.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(+.f64 (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
(fma.f64 (sin.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
(sin.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(+.f64 (.f64 (sin.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
(+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(/.f64 (+.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal 3 binary64))) (fma.f64 phi2 phi2 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
(+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(*.f64 #s(literal 1/2 binary64) (PI.f64))
(PI.f64)
(sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))
(-.f64 (.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 lambda1)) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1)))
(/.f64 (-.f64 (pow.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (fma.f64 lambda1 lambda1 (.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
(-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #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 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx lambda1 lambda1)
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 lambda1 (fma.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 lambda2))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.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 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 (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 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (fma.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 (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))))
#s(approx (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (fma.f64 lambda1 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))
#s(approx (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (fma.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda2) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 2 binary64))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))
#s(approx (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (fma.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (sin.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (fma.f64 (cos.f64 lambda2) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)))) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 2 binary64)))) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda2) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 2 binary64))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 2 binary64)))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 2 binary64))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 2 binary64)))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda2) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 2 binary64))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))
#s(approx (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))))))
#s(approx (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))
#s(approx (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))
#s(approx (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 2 binary64)))) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))
#s(approx (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))
#s(approx (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))
#s(approx (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)))) (.f64 lambda1 (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))
#s(approx (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)))) (.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)))) (.f64 lambda1 (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)))) (.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (fma.f64 #s(literal -2 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)))) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))))) (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)))) (.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))))))) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.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 (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda1 (fma.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 (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))) (.f64 lambda1 (fma.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.f64 lambda2))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (neg.f64 (sin.f64 lambda2))))))
#s(approx (cos (- lambda1 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 lambda2)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.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 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))))))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))
#s(approx (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 3 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))))
#s(approx (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 lambda1 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 3 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))
#s(approx (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda2) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 2 binary64))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 3 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))
#s(approx (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (sin.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (fma.f64 (cos.f64 lambda2) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)))) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda2) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 2 binary64))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 2 binary64)))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 2 binary64))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda2) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 2 binary64))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 3 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 3 binary64)))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2)))))) (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 3 binary64))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda2) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))))))) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 3 binary64))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (sin.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (fma.f64 (cos.f64 lambda2) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)))) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda2) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))))))) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 3 binary64))))
#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 (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)))))) (+.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) (cos (- lambda1 lambda2))))) (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 phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (fma.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) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (fma.f64 lambda1 (fma.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) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))) (.f64 lambda1 (fma.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 phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (fma.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) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.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) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))) (.f64 lambda1 (fma.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 (sin (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (sin.f64 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (sin (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (+.f64 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (sin (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (+.f64 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (sin (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (+.f64 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1 binary64) lambda2))))))))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 lambda2)))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)))
#s(approx (* lambda1 lambda1) (*.f64 lambda1 lambda1))
#s(approx (+ lambda1 lambda2) lambda2)
#s(approx (+ lambda1 lambda2) (+.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 (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)))))) (+.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))))
#s(approx (sin (- lambda1 lambda2)) (*.f64 #s(literal -1 binary64) (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 (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) (fma.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) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda2) (.f64 (.f64 lambda1 lambda1) (fma.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) (fma.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) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda2) (.f64 (.f64 lambda1 lambda1) (fma.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 (* 1/2 (+ (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda1)))) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* 1/2 (+ (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda1)))) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* 1/2 (+ (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda1)))) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (* 1/2 (+ (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda1)))) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (+ (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda1))) (.f64 #s(literal 2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda1))) (fma.f64 #s(literal 2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (+ (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda1))) (fma.f64 #s(literal 2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (+ (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda1))) (fma.f64 #s(literal 2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ lambda1 (+ phi2 (* 1/2 (PI)))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ lambda1 (+ phi2 (* 1/2 (PI)))) (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) lambda1)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) lambda1)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) lambda1)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) lambda1)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (- (+ phi2 (* 1/2 (PI))) lambda1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (+ phi2 (* 1/2 (PI))) lambda1) (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) lambda1))))
#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 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64)))
#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 #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 phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (sin (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) lambda1)
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) (*.f64 lambda1 lambda1))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) (.f64 (.f64 lambda1 lambda1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (.f64 lambda2 lambda2) (*.f64 lambda1 lambda1))))))
#s(approx (+ lambda1 lambda2) lambda1)
#s(approx (+ lambda1 lambda2) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))
#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 #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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) lambda1))))
#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 (* 1/2 (+ (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (+ (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda1))) (+.f64 (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
#s(approx (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda1)
#s(approx (+ lambda1 (+ phi2 (* 1/2 (PI)))) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 phi2 lambda1)))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) lambda1)) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
#s(approx (- (+ phi2 (* 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1))
#s(approx (- (+ phi2 (* 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 phi2 lambda1)) #s(literal 1 binary64))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))))) (.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 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.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))) (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))))) (atan2.f64 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (sin (- lambda1 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 (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))))))
#s(approx (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))))))
#s(approx (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.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) (cos (- lambda1 lambda2))))) (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 phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (sin (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (-.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (+ lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.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 (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) (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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (* 1/2 (+ (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (+ (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda1))) (+.f64 (sin.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) lambda1))))
#s(approx (+ lambda1 (+ phi2 (* 1/2 (PI)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) #s(literal 1 binary64)))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) lambda1)) (sin.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (+ phi2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1)))))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (cos.f64 lambda1)))))))))
#s(approx (- lambda1 lambda2) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx lambda2 lambda2)
#s(approx (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))
#s(approx (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (fma.f64 lambda2 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
#s(approx (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (fma.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
#s(approx (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (fma.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
#s(approx (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))
#s(approx (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
#s(approx (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
#s(approx (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
#s(approx (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 lambda2 (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 lambda2 (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (fma.f64 #s(literal 2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 lambda1))))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 3 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))
#s(approx (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 lambda2 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 3 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
#s(approx (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 3 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
#s(approx (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 3 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 3 binary64)))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 3 binary64))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 3 binary64))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 3 binary64))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (sin (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (sin.f64 lambda1))
#s(approx (sin (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
#s(approx (sin (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1)))))))
#s(approx (sin (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (cos.f64 lambda1)))))))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)))
#s(approx (* lambda2 lambda2) (*.f64 lambda2 lambda2))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (cos.f64 phi2)))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (+.f64 (cos.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 lambda2 lambda2) (cos.f64 phi2))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (+.f64 (cos.f64 phi2) (.f64 (.f64 lambda2 lambda2) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 #s(literal 1/24 binary64) (.f64 (*.f64 lambda2 lambda2) (cos.f64 phi2))))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (+.f64 (cos.f64 phi2) (.f64 (.f64 lambda2 lambda2) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 (.f64 lambda2 lambda2) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 lambda2 lambda2) (cos.f64 phi2)) (*.f64 #s(literal 1/24 binary64) (cos.f64 phi2)))))))))
#s(approx (cos lambda2) #s(literal 1 binary64))
#s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.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 (* (cos phi2) (sin (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1)))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 lambda1)))))
#s(approx (* (sin lambda1) (cos lambda2)) (sin.f64 lambda1))
#s(approx (* (sin lambda1) (cos lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 lambda2 lambda2) (sin.f64 lambda1)))))
#s(approx (* (sin lambda1) (cos lambda2)) (+.f64 (sin.f64 lambda1) (.f64 (.f64 lambda2 lambda2) (fma.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) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 (.f64 lambda2 lambda2) (fma.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 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) (fma.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) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda1) (.f64 (.f64 lambda2 lambda2) (fma.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 (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) (.f64 (.f64 lambda2 lambda2) (-.f64 (/.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(literal 1 binary64))))
#s(approx (+ lambda1 lambda2) (*.f64 lambda2 (+.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (cos lambda2) (cos.f64 lambda2))
#s(approx (sin lambda2) (sin.f64 lambda2))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.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))) (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))
#s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 3 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 3 binary64)))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.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) (cos (- lambda1 lambda2))))) (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 phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (sin (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (-.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (+ lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.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 (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) (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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 3/2 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1 binary64)))))) (/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 7/8 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (fma.f64 #s(literal 1/3 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -2 binary64)) (+.f64 (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 3/2 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 3/2 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1 binary64)))))) (/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 7/8 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1 binary64)))) (fma.f64 #s(literal 1/3 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -2 binary64)) (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 3/2 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 3/2 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1 binary64)))) (-.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (+.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.f64 #s(literal 61/240 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1 binary64)) (+.f64 (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64)))))))))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 7/8 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1 binary64))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (fma.f64 #s(literal 1/3 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -2 binary64)) (+.f64 (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 3/2 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 3/2 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1 binary64)))))) (/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1 binary64)))
#s(approx (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 3/2 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1 binary64))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1 binary64))))
#s(approx (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 7/8 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1 binary64)))) (fma.f64 #s(literal 1/3 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -2 binary64)) (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 3/2 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 3/2 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1 binary64))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1 binary64))))
#s(approx (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 7/8 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1 binary64)))) (fma.f64 #s(literal 1/3 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -2 binary64)) (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 3/2 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 3/2 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1 binary64)))) (-.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 61/240 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1 binary64))))))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 7/8 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1 binary64))))) (fma.f64 #s(literal 1/3 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -2 binary64)) (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 3/2 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 3/2 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1 binary64))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1 binary64))))
#s(approx (pow (cos phi1) 3) #s(literal 1 binary64))
#s(approx (pow (cos phi1) 3) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -3/2 binary64) (.f64 phi1 phi1))))
#s(approx (pow (cos phi1) 3) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 7/8 binary64) (.f64 phi1 phi1)) #s(literal 3/2 binary64)))))
#s(approx (pow (cos phi1) 3) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 7/8 binary64) (.f64 #s(literal -61/240 binary64) (.f64 phi1 phi1)))) #s(literal 3/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 phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (-.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (-.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal -1 binary64) (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi1 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal -1/24 binary64) (.f64 (.f64 phi1 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/720 binary64) (.f64 (.f64 phi1 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi1 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 phi1 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi1 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (+.f64 (/.f64 (.f64 (.f64 phi1 phi1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (+.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (+.f64 (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(literal 1 binary64) (fma.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 lambda2)))) (+.f64 #s(literal 1 binary64) (fma.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 (+ (* (- (* 1/24 (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) #s(literal 1 binary64))
#s(approx (+ (* (- (* 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/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/24 (* phi1 phi1)) 1/2) #s(literal -1/2 binary64))
#s(approx (- (* 1/24 (* phi1 phi1)) 1/2) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)))
#s(approx (* 1/24 (* phi1 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)))
#s(approx (* phi1 phi1) (*.f64 phi1 phi1))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) (.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (.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 (pow (cos phi1) 3) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)))
#s(approx (cos phi1) (cos.f64 phi1))
#s(approx (+ (* (- (* 1/24 (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi1 #s(literal 4 binary64))))
#s(approx (+ (* (- (* 1/24 (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (.f64 (pow.f64 phi1 #s(literal 4 binary64)) (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/2 binary64) (pow.f64 phi1 #s(literal -2 binary64))))))
#s(approx (+ (* (- (* 1/24 (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (.f64 (pow.f64 phi1 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (pow.f64 phi1 #s(literal -4 binary64))) (.f64 #s(literal 1/2 binary64) (pow.f64 phi1 #s(literal -2 binary64))))))
#s(approx (- (* 1/24 (* phi1 phi1)) 1/2) (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)))
#s(approx (- (* 1/24 (* phi1 phi1)) 1/2) (.f64 (.f64 phi1 phi1) (-.f64 #s(literal 1/24 binary64) (*.f64 #s(literal 1/2 binary64) (pow.f64 phi1 #s(literal -2 binary64))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos phi2) (sin (- lambda1 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 lambda2))) (+.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) (fma.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 lambda2))) (+.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) (fma.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 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 (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (/.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (fma.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal -3/2 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (fma.f64 (.f64 phi2 phi2) (-.f64 (fma.f64 #s(literal -3/2 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal 7/8 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -3/2 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (fma.f64 (.f64 phi2 phi2) (-.f64 (fma.f64 #s(literal -3/2 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (.f64 phi2 phi2) (-.f64 (fma.f64 #s(literal 7/8 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal -61/240 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -3/2 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 (.f64 #s(literal 7/8 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -3/2 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (/.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2/45 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2/45 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -3/2 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 phi2 phi2) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 (.f64 phi2 phi2) (-.f64 (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2/45 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (fma.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (fma.f64 (.f64 phi2 phi2) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (fma.f64 (.f64 phi2 phi2) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (.f64 (.f64 phi2 phi2) (-.f64 (fma.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal -2/45 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (fma.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (fma.f64 (.f64 phi2 phi2) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (fma.f64 (.f64 phi2 phi2) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (.f64 (.f64 phi2 phi2) (-.f64 (fma.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal -2/45 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (fma.f64 #s(literal -1 binary64) (pow.f64 (*.f64 phi2 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (fma.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/3 binary64) (pow.f64 (*.f64 phi2 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (fma.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -2/45 binary64) (pow.f64 (.f64 phi2 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) (fma.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 (- lambda1 lambda2)) (cos phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) (fma.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 (- lambda1 lambda2)) (cos phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi2 phi2) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 phi2 phi2) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi2 phi2) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal -3/2 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 (.f64 phi2 phi2) (-.f64 (fma.f64 #s(literal -3/2 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal 7/8 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -3/2 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (/.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 (.f64 phi2 phi2) (-.f64 (fma.f64 #s(literal -3/2 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (.f64 phi2 phi2) (-.f64 (fma.f64 #s(literal 7/8 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal -61/240 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -3/2 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 (.f64 #s(literal 7/8 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -3/2 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (/.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (/.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2/45 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -3/2 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (/.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (fma.f64 #s(literal -3/2 binary64) (.f64 (.f64 phi2 phi2) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (fma.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (.f64 #s(literal 7/8 binary64) (.f64 (.f64 phi2 phi2) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (fma.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -61/240 binary64) (.f64 (.f64 phi2 phi2) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 #s(literal 7/8 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (cos phi1) (* (cos phi2) (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 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) (fma.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) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) (fma.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 (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) (fma.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) (cos (- lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) (fma.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 (+ 1 (* (* phi2 phi2) (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2))) #s(literal 1 binary64))
#s(approx (+ 1 (* (* phi2 phi2) (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2))))
#s(approx (+ 1 (* (* phi2 phi2) (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)) #s(literal 1/2 binary64)))))
#s(approx (+ 1 (* (* phi2 phi2) (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 (.f64 phi2 phi2) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2)))) #s(literal 1/2 binary64)))))
#s(approx (* (* phi2 phi2) (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2)) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)))
#s(approx (* (* phi2 phi2) (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2)) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)) #s(literal 1/2 binary64))))
#s(approx (* (* phi2 phi2) (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2)) (.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) (*.f64 phi2 phi2))
#s(approx (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2) #s(literal -1/2 binary64))
#s(approx (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)) #s(literal 1/2 binary64)))
#s(approx (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2) (-.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) (+ 1/24 (* -1/720 (* phi2 phi2)))) (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)))
#s(approx (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) (.f64 (.f64 phi2 phi2) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2)))))
#s(approx (+ 1/24 (* -1/720 (* phi2 phi2))) #s(literal 1/24 binary64))
#s(approx (+ 1/24 (* -1/720 (* phi2 phi2))) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2))))
#s(approx (* -1/720 (* phi2 phi2)) (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2)))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda2) (cos.f64 phi1)))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda2) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 phi2 phi2) (cos.f64 lambda2))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda2) (+.f64 (cos.f64 phi1) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/24 binary64) (.f64 (*.f64 phi2 phi2) (cos.f64 lambda2))))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda2) (+.f64 (cos.f64 phi1) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 lambda2)) (*.f64 #s(literal 1/24 binary64) (cos.f64 lambda2)))))))))
#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 (fma.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 lambda2))) (-.f64 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda1) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (.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 lambda2))) (-.f64 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda1) (.f64 (.f64 phi2 phi2) (fma.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) (fma.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 (* 1/2 (+ (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (* 1/2 (+ (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda1)))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (+.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (* 1/2 (+ (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda1)))) (fma.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))))
#s(approx (* 1/2 (+ (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda1)))) (fma.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))))))))
#s(approx (+ (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda1))) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))
#s(approx (+ (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda1))) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 phi2 (+.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))))
#s(approx (+ (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda1))) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 phi2 (+.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))))))))
#s(approx (+ (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda1))) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 phi2 (+.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))))))))))
#s(approx (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (+.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (+.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ lambda1 (+ phi2 (* 1/2 (PI)))) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ phi2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ phi2 (* 1/2 (PI))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) lambda1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 phi2 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 phi2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 phi2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))))))
#s(approx (- (+ phi2 (* 1/2 (PI))) lambda1) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))
#s(approx (- (+ phi2 (* 1/2 (PI))) lambda1) (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))
#s(approx (cos phi2) (cos.f64 phi2))
#s(approx (+ 1 (* (* phi2 phi2) (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2))) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64))))
#s(approx (+ 1 (* (* phi2 phi2) (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2))) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal -2 binary64))) #s(literal 1/720 binary64))))
#s(approx (+ 1 (* (* phi2 phi2) (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2))) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal -2 binary64))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (+ 1 (* (* phi2 phi2) (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2))) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal -2 binary64)) (pow.f64 phi2 #s(literal -6 binary64))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (* (* phi2 phi2) (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2)) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64))))
#s(approx (* (* phi2 phi2) (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2)) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal -2 binary64))) #s(literal 1/720 binary64))))
#s(approx (* (* phi2 phi2) (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2)) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal -2 binary64))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal -2 binary64))) #s(literal 1/720 binary64))))
#s(approx (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal -2 binary64))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal -2 binary64))) #s(literal 1/720 binary64))))
#s(approx (+ 1/24 (* -1/720 (* phi2 phi2))) (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2)))
#s(approx (+ 1/24 (* -1/720 (* phi2 phi2))) (.f64 (.f64 phi2 phi2) (-.f64 (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal -2 binary64))) #s(literal 1/720 binary64))))
#s(approx (+ lambda1 (+ phi2 (* 1/2 (PI)))) phi2)
#s(approx (+ lambda1 (+ phi2 (* 1/2 (PI)))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2) (/.f64 lambda1 phi2)))))
#s(approx (+ phi2 (* 1/2 (PI))) phi2)
#s(approx (+ phi2 (* 1/2 (PI))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2)))))
#s(approx (- (+ phi2 (* 1/2 (PI))) lambda1) phi2)
#s(approx (- (+ phi2 (* 1/2 (PI))) lambda1) (.f64 phi2 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2))) (/.f64 lambda1 phi2))))
#s(approx (* 1/2 (+ (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi2))))))
#s(approx (+ (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda1))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))
#s(approx (+ lambda1 (+ phi2 (* 1/2 (PI)))) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) #s(literal 1 binary64)))))
#s(approx (+ phi2 (* 1/2 (PI))) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi2)) #s(literal 1 binary64)))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (- (+ phi2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) phi2)) #s(literal 1 binary64)))))

eval320.0ms (2.8%)

Memory: 25.1MiB live, 571.9MiB allocated; 123ms collecting garbage
Compiler: Compiled 116 035 to 7 430 computations (93.6% saved)

prune177.0ms (1.5%)

Memory

15.1MiB live, 452.5MiB allocated; 66ms collecting garbage

Pruning

81 alts after pruning (80 fresh and 1 done)

	Pruned	Kept	Total
New	1 327	28	1 355
Fresh	14	52	66
Picked	5	0	5
Done	0	1	1
Total	1 346	81	1 427

Accuracy

99.2%

Counts

1 427 → 81

Alt Table

Click to see full alt table

Status	Accuracy	Program
	66.1%	(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.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)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1)))))))
	77.5%	(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.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)) (fma.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)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))))))
	63.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 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) (- lambda1 lambda2)) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)))))
	26.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 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
	58.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (-.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda2)) (sin.f64 (-.f64 (+.f64 lambda2 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1))))))))
	98.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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))))) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)))) (.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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))))) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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)))))))))
	93.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (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)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (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))))))
	93.4%	(+.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 (-.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))) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (+.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)))))))))
	66.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (exp.f64 (.f64 (log.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 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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)))))) #s(literal 3 binary64)) (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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)))))) #s(literal 3 binary64))) (fma.f64 (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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 (cos.f64 phi1) #s(literal 3 binary64)) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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 (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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)) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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 3 binary64)) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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)) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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 (.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)))))))
	98.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.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))) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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))))))))
	93.5%	(+.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.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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)) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (/.f64 (-.f64 (pow.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) #s(literal 3 binary64))) (fma.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (fma.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) (.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))))))))))))
	55.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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 (exp.f64 (.f64 (log.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) #s(literal 3 binary64))) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (/.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)))) #s(approx (- (* (sin (- lambda1 lambda2)) 0) (* (cos (- lambda1 lambda2)) 1)) (-.f64 (.f64 lambda1 (-.f64 (neg.f64 (sin.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2))))) (cos.f64 lambda2))))))))
	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (/.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)))) #s(approx (- (* (sin (- lambda1 lambda2)) 0) (* (cos (- lambda1 lambda2)) 1)) (-.f64 (*.f64 lambda1 (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2))))))))
	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (/.f64 #s(approx (- (* (* (sin (- lambda1 lambda2)) 0) (* (sin (- lambda1 lambda2)) 0)) (* (* (cos (- lambda1 lambda2)) 1) (* (cos (- lambda1 lambda2)) 1))) (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64))))))))
	98.5%	(+.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)) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))))))
	98.4%	(+.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)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))))
	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 (neg.f64 lambda1) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)))))))
	74.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (fma.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)))))))))
	76.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (/ (pow (cos phi1) 3) (+ ( (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1 binary64))) (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.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)))))))))
	59.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
	88.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (/ (- (pow (cos phi1) 2) (pow ( (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (/.f64 (-.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))
	68.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (/ (- (pow (cos phi1) 2) (pow ( (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
	98.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (/ (pow (cos phi1) 3) (+ ( (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))))))
	75.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (/ (pow (cos phi1) 3) (+ ( (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
	72.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) #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)))))))))
	76.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1))))))))
	75.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64))))))
	75.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1)))))
	72.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 lambda2)))) (cos.f64 phi2) (cos.f64 phi1)))))
	74.7%	(+.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 lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (cos.f64 phi2))))))
	74.4%	(+.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 lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda2) (cos.f64 phi1))))))
	75.3%	(+.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 lambda2) (cos phi2)) (cos phi1)) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))))
	85.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (/.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))))))
	64.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	72.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 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))))))))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	72.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 lambda1 (cos.f64 lambda2))))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 lambda1 (cos.f64 lambda2))))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
	88.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
	71.7%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.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 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	72.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #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))))) (cos.f64 (-.f64 lambda1 lambda2))))))
	71.1%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #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))))) (cos.f64 (-.f64 lambda1 lambda2))))))
	72.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)))) (cos.f64 (-.f64 lambda1 lambda2))))))
	71.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
	59.7%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #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))))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	59.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	60.1%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	60.3%	(+.f64 lambda1 (atan2.f64 (.f64 #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))))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64))))))
	71.5%	(+.f64 lambda1 (atan2.f64 (.f64 #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))))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) #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))))) (cos.f64 phi1)))))
	57.5%	(+.f64 lambda1 (atan2.f64 (.f64 #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))))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 #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))))) (cos.f64 phi2) (cos.f64 phi1)))))
	59.3%	(+.f64 lambda1 (atan2.f64 (.f64 #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))))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 lambda2)))) (cos.f64 phi2) (cos.f64 phi1)))))
	67.0%	(+.f64 lambda1 (atan2.f64 (.f64 #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 (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
	71.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 (.f64 phi2 phi2) #s(approx (+ 1/24 ( -1/720 (* phi2 phi2))) #s(literal 1/24 binary64))) #s(literal 1/2 binary64))))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
	37.6%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(approx (+ 1 ( (* phi2 phi2) (- (* (* phi2 phi2) (+ 1/24 (* -1/720 (* phi2 phi2)))) 1/2))) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal -2 binary64)) (pow.f64 phi2 #s(literal -6 binary64))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
	72.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	61.2%	(+.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) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
	26.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
	18.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	20.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda1)))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	61.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (/.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)))))
	53.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))) (/.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)))))
	53.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	53.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)))) (cos.f64 (-.f64 lambda1 lambda2))))))
	53.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	53.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))
	60.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 #s(approx (- (* 1/24 (* phi1 phi1)) 1/2) #s(literal -1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
	60.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(approx (+ (* (- (* 1/24 (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	61.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(approx (+ (* (- (* 1/24 (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) #s(literal 1 binary64))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
	72.8%	(+.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 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))))))
	72.7%	(+.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 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
	48.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) lambda1))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	54.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
	48.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
	58.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 lambda1 (cos.f64 lambda2))))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
	98.6%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (* (cos phi1) (cos phi1)) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) lambda1))))
	46.8%	#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)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))))
	98.7%	#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)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) #s(literal 1 binary64)) lambda1))
✓	46.8%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

Compiler

Compiled 11 077 to 3 210 computations (71% saved)

regimes238.0ms (2%)

Memory

21.3MiB live, 497.8MiB allocated; 34ms collecting garbage

Counts

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

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:

36.0ms	phi2
35.0ms	(cos.f64 phi1)
33.0ms	lambda2
33.0ms	lambda1
32.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 phi1)`
98.7%	1	`(cos.f64 phi2)`
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	`lambda1`
98.7%	1	`lambda2`
98.7%	1	`phi1`
98.7%	1	`phi2`

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes135.0ms (1.2%)

Memory

0.0MiB live, 282.8MiB allocated; 10ms collecting garbage

Counts

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

Outputs

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

Calls

7 calls:

20.0ms	lambda1
19.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))))))
19.0ms	lambda2
19.0ms	phi1
18.0ms	phi2

Results

Accuracy	Segments	Branch
98.4%	1	`(cos.f64 phi1)`
98.4%	1	`(cos.f64 phi2)`
98.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))))))`
98.4%	1	`lambda1`
98.4%	1	`lambda2`
98.4%	1	`phi1`
98.4%	1	`phi2`

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes651.0ms (5.6%)

Memory

-122.5MiB live, 297.8MiB allocated; 1.1s collecting garbage

Counts

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

Outputs

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

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

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

Calls

7 calls:

51.0ms	phi2
32.0ms	phi1
26.0ms	lambda1
21.0ms	lambda2
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))))))

Results

Accuracy	Segments	Branch
90.5%	2	`lambda1`
93.6%	2	`(cos.f64 phi1)`
92.8%	2	`(cos.f64 phi2)`
98.2%	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))))))`
98.7%	3	`lambda2`
93.6%	2	`phi1`
92.8%	2	`phi2`

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes30.0ms (0.3%)

Memory

0.1MiB live, 47.3MiB allocated; 1ms collecting garbage

Counts

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

Outputs

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

(+.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 lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (cos.f64 phi2))))))

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

Calls

1 calls:

18.0ms

lambda2

Results

Accuracy	Segments	Branch
98.4%	3	`lambda2`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes148.0ms (1.3%)

Memory

-10.1MiB live, 321.3MiB allocated; 28ms collecting garbage

Counts

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

Outputs

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

Calls

7 calls:

25.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))))))
23.0ms	lambda1
20.0ms	lambda2
19.0ms	(cos.f64 phi2)
19.0ms	phi2

Results

Accuracy	Segments	Branch
78.9%	2	`lambda1`
89.1%	2	`(cos.f64 phi2)`
89.2%	2	`phi2`
87.2%	2	`(cos.f64 phi1)`
87.5%	2	`phi1`
85.1%	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))))))`
85.8%	3	`lambda2`

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes22.0ms (0.2%)

Memory

7.5MiB live, 53.0MiB allocated; 3ms collecting garbage

Counts

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

Outputs

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

Calls

1 calls:

19.0ms

phi2

Results

Accuracy	Segments	Branch
89.1%	2	`phi2`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes36.0ms (0.3%)

Memory

-2.8MiB live, 89.2MiB allocated; 5ms collecting garbage

Counts

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

Outputs

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

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

Calls

2 calls:

17.0ms	phi2
15.0ms	(cos.f64 phi2)

Results

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

Compiler

Compiled 3 to 9 computations (-200% saved)

regimes56.0ms (0.5%)

Memory

3.8MiB live, 148.8MiB allocated; 8ms collecting garbage

Counts

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

Outputs

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

Calls

3 calls:

20.0ms	phi1
18.0ms	(cos.f64 phi2)
14.0ms	phi2

Results

Accuracy	Segments	Branch
86.9%	2	`phi1`
89.0%	3	`phi2`
86.7%	2	`(cos.f64 phi2)`

Compiler

Compiled 4 to 13 computations (-225% saved)

regimes78.0ms (0.7%)

Memory

-6.5MiB live, 185.2MiB allocated; 4ms collecting garbage

Counts

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

Outputs

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

Calls

4 calls:

25.0ms	phi2
22.0ms	(cos.f64 phi1)
16.0ms	phi1
12.0ms	(cos.f64 phi2)

Results

Accuracy	Segments	Branch
86.4%	2	`(cos.f64 phi2)`
77.2%	2	`phi1`
76.9%	2	`(cos.f64 phi1)`
86.5%	2	`phi2`

Compiler

Compiled 6 to 18 computations (-200% saved)

regimes95.0ms (0.8%)

Memory

-23.9MiB live, 218.0MiB allocated; 19ms collecting garbage

Counts

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

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 lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda2) (cos.f64 phi1))))))

Calls

7 calls:

18.0ms	lambda2
14.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))))))
14.0ms	phi1
13.0ms	(cos.f64 phi1)
12.0ms	phi2

Results

Accuracy	Segments	Branch
74.4%	1	`(cos.f64 phi1)`
74.4%	1	`phi1`
74.4%	1	`lambda1`
74.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))))))`
74.4%	1	`lambda2`
74.4%	1	`(cos.f64 phi2)`
74.4%	1	`phi2`

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes84.0ms (0.7%)

Memory

16.8MiB live, 210.3MiB allocated; 8ms 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 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(approx (+ (* (- (* 1/24 (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) #s(literal 1 binary64))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 #s(approx (- (* 1/24 (* phi1 phi1)) 1/2) #s(literal -1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 #s(approx (- lambda1 lambda2) lambda1))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.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 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 #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))))) (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 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(approx (+ (* (- (* 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 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 #s(approx (- (* 1/24 (* phi1 phi1)) 1/2) #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) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (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 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (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 #s(approx (- lambda1 lambda2) lambda1))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) lambda1))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.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 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.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) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 lambda1 (cos.f64 lambda2))))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.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))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 #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))))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #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))))) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.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 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda1)))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 #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))))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 lambda2)))) (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 #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))))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #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))))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #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))))) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 #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))))) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 #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))))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 #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))))) (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 #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))))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) #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))))) (cos.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 #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))))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (*.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) (fma.f64 (-.f64 (.f64 #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 (.f64 phi2 phi2) (-.f64 (.f64 (.f64 phi2 phi2) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (*.f64 phi2 phi2)))) #s(literal 1/2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))) (/.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 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 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))))))

Outputs

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

Calls

7 calls:

13.0ms	(cos.f64 phi2)
12.0ms	phi2
11.0ms	(cos.f64 phi1)
11.0ms	phi1
11.0ms	lambda2

Results

Accuracy	Segments	Branch
72.8%	1	`(cos.f64 phi1)`
72.8%	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))))))`
72.8%	1	`phi2`
72.8%	1	`lambda1`
72.8%	1	`phi1`
75.4%	2	`(cos.f64 phi2)`
72.8%	1	`lambda2`

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes14.0ms (0.1%)

Memory

-14.8MiB live, 35.6MiB allocated; 2ms collecting garbage

Counts

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

Outputs

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

Calls

1 calls:

11.0ms

(cos.f64 phi2)

Results

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

Compiler

Compiled 2 to 5 computations (-150% saved)

regimes7.0ms (0.1%)

Memory

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

Counts

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

Outputs

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

Calls

1 calls:

6.0ms

(cos.f64 phi2)

Results

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

Compiler

Compiled 2 to 5 computations (-150% saved)

regimes8.0ms (0.1%)

Memory

-28.3MiB live, 19.0MiB allocated; 1ms collecting garbage

Counts

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

Outputs

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

Calls

1 calls:

6.0ms

(cos.f64 phi2)

Results

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

Compiler

Compiled 2 to 5 computations (-150% saved)

regimes30.0ms (0.3%)

Memory

35.4MiB live, 83.0MiB allocated; 1ms collecting garbage

Counts

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

Calls

7 calls:

4.0ms	(cos.f64 phi1)
4.0ms	lambda2
4.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	phi1
4.0ms	phi2

Results

Accuracy	Segments	Branch
72.7%	1	`lambda1`
72.7%	1	`phi1`
72.7%	1	`phi2`
72.7%	1	`(cos.f64 phi1)`
72.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))))))`
72.7%	1	`lambda2`
72.7%	1	`(cos.f64 phi2)`

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes27.0ms (0.2%)

Memory

-26.0MiB live, 70.5MiB allocated; 3ms collecting garbage

Counts

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

Outputs

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

Calls

7 calls:

5.0ms	phi1
4.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	lambda2
3.0ms	lambda1
3.0ms	(cos.f64 phi2)

Results

Accuracy	Segments	Branch
61.0%	1	`(cos.f64 phi2)`
61.0%	1	`phi1`
61.0%	1	`phi2`
61.0%	1	`lambda1`
61.0%	1	`lambda2`
61.0%	1	`(cos.f64 phi1)`
61.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))))))`

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes8.0ms (0.1%)

Memory

27.6MiB live, 27.6MiB 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	(cos.f64 phi2)
1.0ms	lambda2
1.0ms	phi2
1.0ms	lambda1

Results

Accuracy	Segments	Branch
46.8%	1	`lambda1`
46.8%	1	`phi2`
46.8%	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))))))`
46.8%	1	`(cos.f64 phi1)`
46.8%	1	`phi1`
46.8%	1	`(cos.f64 phi2)`
46.8%	1	`lambda2`

Compiler

Compiled 28 to 40 computations (-42.9% saved)

bsearch42.0ms (0.4%)

Memory

-3.4MiB live, 91.5MiB allocated; 2ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	predicate-same
1×	narrow-enough

Steps

Time	Left	Right
11.0ms	2.8179759548853134e-20	9.43558526484933e-19
28.0ms	-1.222049904004097e-7	-2.2939543309230056e-8

Samples

22.0ms	38×	1	valid
11.0ms	90×	0	valid

Compiler

Compiled 503 to 373 computations (25.8% saved)

Precisions

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

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

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

adjust: 2.0ms (6.8% of total)

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

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

ival-add!: 1.0ms (3.4% of total)

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

bsearch14.0ms (0.1%)

Memory

-18.6MiB live, 28.4MiB allocated; 4ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	predicate-same
1×	predicate-same

Steps

Time	Left	Right
0.0ms	2.8179759548853134e-20	9.43558526484933e-19
12.0ms	-1.4061044223044607e-12	-3.01668737282862e-23

Samples

6.0ms	12×	1	valid
2.0ms	20×	0	valid

Compiler

Compiled 291 to 209 computations (28.2% saved)

Precisions

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

ival-cos: 4.0ms (55.2% of total)

adjust: 1.0ms (13.8% of total)

ival-sin: 1.0ms (13.8% of total)

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

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

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

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

bsearch66.0ms (0.6%)

Memory

25.6MiB live, 76.6MiB allocated; 4ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
63.0ms	0.6716716405215214	11.227985799326763

Samples

50.0ms	49×	1	valid
7.0ms	63×	0	valid

Compiler

Compiled 541 to 385 computations (28.8% saved)

Precisions

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

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

ival-sin: 5.0ms (9.4% of total)

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

adjust: 2.0ms (3.7% of total)

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

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

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

bsearch35.0ms (0.3%)

Memory

-34.2MiB live, 12.8MiB allocated; 1ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
34.0ms	0.6716716405215214	11.227985799326763

Samples

31.0ms	9×	1	valid
1.0ms	7×	0	valid

Compiler

Compiled 506 to 371 computations (26.7% saved)

Precisions

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

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

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

ival-sin: 1.0ms (3.2% of total)

adjust: 0.0ms (0% of total)

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

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

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

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.9999138622926292	0.9999999999996673

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch113.0ms (1%)

Memory

40.5MiB live, 179.4MiB allocated; 15ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
61.0ms	2.0708861172183738e+148	1.6117125286295903e+154
47.0ms	3.8306173309479673e-7	8.157019191501185e-7

Samples

79.0ms	106×	1	valid
19.0ms	118×	0	valid

Compiler

Compiled 933 to 660 computations (29.3% saved)

Precisions

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

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

ival-sin: 11.0ms (12.3% of total)

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

adjust: 5.0ms (5.6% of total)

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

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

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

bsearch23.0ms (0.2%)

Memory

-36.7MiB live, 53.7MiB allocated; 7ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
20.0ms	0.6716716405215214	11.227985799326763

Samples

11.0ms	19×	1	valid
3.0ms	29×	0	valid

Compiler

Compiled 597 to 399 computations (33.2% saved)

Precisions

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

ival-cos: 6.0ms (50.6% of total)

ival-sin: 2.0ms (16.9% of total)

adjust: 1.0ms (8.4% of total)

ival-mult!: 1.0ms (8.4% of total)

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

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

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

bsearch1.0ms (0%)

Memory

2.3MiB live, 2.2MiB allocated; 0ms collecting garbage

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-0.029658505169379654	0.03003662704433519

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-0.029658505169379654	0.03003662704433519

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-0.029658505169379654	0.03003662704433519

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-0.029658505169379654	0.03003662704433519

Compiler

Compiled 22 to 21 computations (4.5% saved)

simplify53.0ms (0.5%)

Memory

32.2MiB live, 78.5MiB allocated; 2ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	170	1040
1	225	1040
2	324	1040
3	563	1040
4	1063	1040
5	2538	1040

Stop Event

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))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
(if (<=.f64 lambda2 #s(literal -8160249282398747/75557863725914323419136 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1))))) (if (<=.f64 lambda2 #s(literal 2076918743413931/10384593717069655257060992658440192 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))))
(if (<=.f64 lambda2 #s(literal -4951760157141521/4951760157141521099596496896 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1))))) (if (<=.f64 lambda2 #s(literal 2076918743413931/10384593717069655257060992658440192 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 lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))))
(if (<=.f64 phi2 #s(literal 8106479329266893/9007199254740992 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (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) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)))))))))
(if (<=.f64 phi2 #s(literal 7836263351624663/9007199254740992 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.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 (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)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)))))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 9006748894778255/9007199254740992 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)))))))) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)))) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 phi2 #s(literal 944473296573929/1180591620717411303424 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)))) (cos.f64 (-.f64 lambda1 lambda2)))))) (if (<=.f64 phi2 #s(literal 390000000000000011060269976788551799331273906615939955323408973486709580937434726467058171651973294083325596704779563921265443568958814844943357200826368 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) #s(approx (cos phi1) #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)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (cos.f64 phi2))))))))
(if (<=.f64 phi2 #s(literal 6124895493223875/9007199254740992 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #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))))) (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 lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (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)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda2) (cos.f64 phi1))))))
(if (<=.f64 (cos.f64 phi2) #s(literal -5764607523034235/288230376151711744 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.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) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal -5764607523034235/288230376151711744 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.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) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal -5764607523034235/288230376151711744 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)))) (.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) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal -5764607523034235/288230376151711744 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (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 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.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) (cos (- lambda1 lambda2)))) (+.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))) (+.f64 #s(approx (cos phi1) #s(approx (+ (* (- (* 1/24 (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) #s(literal 1 binary64))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (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) (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) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
(if (<=.f64 lambda2 #s(literal -8160249282398747/75557863725914323419136 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1))))) (if (<=.f64 lambda2 #s(literal 2076918743413931/10384593717069655257060992658440192 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))))
(if (or (<=.f64 lambda2 #s(literal -8160249282398747/75557863725914323419136 binary64)) (not (<=.f64 lambda2 #s(literal 2076918743413931/10384593717069655257060992658440192 binary64)))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1))))))
(if (<=.f64 lambda2 #s(literal -4951760157141521/4951760157141521099596496896 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1))))) (if (<=.f64 lambda2 #s(literal 2076918743413931/10384593717069655257060992658440192 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 lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))))
(if (or (<=.f64 lambda2 #s(literal -4951760157141521/4951760157141521099596496896 binary64)) (not (<=.f64 lambda2 #s(literal 2076918743413931/10384593717069655257060992658440192 binary64)))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1))))) (+.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 lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
(if (<=.f64 phi2 #s(literal 8106479329266893/9007199254740992 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (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) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)))))))))
(if (<=.f64 phi2 #s(literal 7836263351624663/9007199254740992 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.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 (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)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)))))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 9006748894778255/9007199254740992 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)))))))) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)))) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 phi2 #s(literal 944473296573929/1180591620717411303424 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)))) (cos.f64 (-.f64 lambda1 lambda2)))))) (if (<=.f64 phi2 #s(literal 390000000000000011060269976788551799331273906615939955323408973486709580937434726467058171651973294083325596704779563921265443568958814844943357200826368 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) #s(approx (cos phi1) #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)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (cos.f64 phi2))))))))
(if (<=.f64 phi2 #s(literal 6124895493223875/9007199254740992 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #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))))) (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 lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (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)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda2) (cos.f64 phi1))))))
(if (<=.f64 (cos.f64 phi2) #s(literal -5764607523034235/288230376151711744 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.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) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal -5764607523034235/288230376151711744 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.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) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal -5764607523034235/288230376151711744 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)))) (.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) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal -5764607523034235/288230376151711744 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (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 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.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) (cos (- lambda1 lambda2)))) (+.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))) (+.f64 #s(approx (cos phi1) #s(approx (+ (* (- (* 1/24 (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) #s(literal 1 binary64))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

derivations439.0ms (3.8%)

Memory

-31.3MiB live, 596.5MiB allocated; 53ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 1 040 to 174 computations (83.3% saved)

preprocess188.0ms (1.6%)

Memory

20.6MiB live, 298.7MiB allocated; 25ms collecting garbage

Remove

(abs phi2)

(abs phi1)

Compiler

Compiled 6 970 to 3 044 computations (56.3% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze586.0ms (5%)

sample4.9s (42.4%)

explain454.0ms (3.9%)

preprocess190.0ms (1.6%)

eval0.0ms (0%)

prune1.0ms (0%)

series24.0ms (0.2%)

rewrite280.0ms (2.4%)

eval35.0ms (0.3%)

prune60.0ms (0.5%)

series129.0ms (1.1%)

rewrite266.0ms (2.3%)

eval218.0ms (1.9%)

prune85.0ms (0.7%)

series78.0ms (0.7%)

rewrite257.0ms (2.2%)

eval190.0ms (1.6%)

prune137.0ms (1.2%)

series252.0ms (2.2%)

rewrite331.0ms (2.8%)

eval320.0ms (2.8%)

prune177.0ms (1.5%)

regimes238.0ms (2%)

regimes135.0ms (1.2%)

regimes651.0ms (5.6%)

regimes30.0ms (0.3%)

regimes148.0ms (1.3%)

regimes22.0ms (0.2%)

regimes36.0ms (0.3%)

regimes56.0ms (0.5%)

regimes78.0ms (0.7%)

regimes95.0ms (0.8%)

regimes84.0ms (0.7%)

regimes14.0ms (0.1%)

regimes7.0ms (0.1%)

regimes8.0ms (0.1%)

regimes30.0ms (0.3%)

regimes27.0ms (0.2%)

regimes8.0ms (0.1%)

bsearch42.0ms (0.4%)

bsearch14.0ms (0.1%)

bsearch66.0ms (0.6%)

bsearch35.0ms (0.3%)

bsearch1.0ms (0%)

bsearch113.0ms (1%)

bsearch23.0ms (0.2%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

simplify53.0ms (0.5%)

derivations439.0ms (3.8%)

preprocess188.0ms (1.6%)

end0.0ms (0%)

Profiling