Metrics for Midpoint on a great circle

start0.0ms (0%)

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

analyze1.3s (11.6%)

Memory

-245.4MiB live, 967.8MiB allocated; 1.1s 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 (44.8%)

Memory

152.2MiB live, 6 354.9MiB allocated; 953ms collecting garbage

Samples

3.7s	4 511×	1	valid
613.0ms	3 740×	0	valid
5.0ms	5×	2	valid

Precisions

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

ival-cos: 2.3s (56.7% of total)

ival-sin: 513.0ms (12.9% of total)

adjust: 400.0ms (10% of total)

ival-mult: 268.0ms (6.7% of total)

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

ival-add: 162.0ms (4.1% of total)

ival-sub: 114.0ms (2.9% of total)

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

Bogosity

explain412.0ms (3.7%)

Memory

-11.7MiB live, 456.3MiB allocated; 43ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Underpredictions	Example	Subexpression
65	119	(-2.9251816411896202e-120 3.4201116345035037e+279 -8.039814658808444e+292 9.204397884405035e-275)	0	-	`(sin.f64 (-.f64 lambda1 lambda2))`
65	118	(-2.9251816411896202e-120 3.4201116345035037e+279 -8.039814658808444e+292 9.204397884405035e-275)	0	-	`(cos.f64 (-.f64 lambda1 lambda2))`
4	0	-	2	(4.284857354829e-22 2.9912455762541587e-205 -1.3197878613501163e+28 -4.998690692515107e+23)	`(+.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
`sin.f64`	`(sin.f64 (-.f64 lambda1 lambda2))`	sensitivity	184	0
`cos.f64`	`(cos.f64 (-.f64 lambda1 lambda2))`	sensitivity	183	1
`+.f64`	`(+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))`	cancellation	1	2

Confusion

	Predicted +	Predicted -
+	5	2
-	180	69

Precision

0.02702702702702703

Recall

0.7142857142857143

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	5	1	1
-	180	1	68

Precision?

0.03208556149732621

Recall?

0.8571428571428571

Freqs

test

number	freq
0	71
1	2
2	183

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

272.0ms	374×	1	valid
24.0ms	138×	0	valid

Compiler

Compiled 186 to 46 computations (75.3% saved)

Precisions

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

ival-cos: 142.0ms (54% of total)

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

adjust: 27.0ms (10.3% of total)

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

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

ival-add: 15.0ms (5.7% of total)

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

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

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

preprocess183.0ms (1.7%)

Memory

56.7MiB live, 185.7MiB allocated; 16ms 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.0MiB live, 0.0MiB allocated; 0ms collecting garbage
Compiler: Compiled 0 to 4 computations (-∞% saved)

prune1.0ms (0%)

Memory

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

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	99.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))))))

Compiler

Compiled 20 to 14 computations (30% saved)

series49.0ms (0.4%)

Memory

-17.1MiB live, 48.7MiB allocated; 13ms 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
27.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)))
3.0ms	lambda1	@	-inf	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (cos phi1) phi1 (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)))
2.0ms	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	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	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)))

rewrite215.0ms (1.9%)

Memory

16.4MiB live, 240.6MiB allocated; 28ms 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))

eval37.0ms (0.3%)

Memory: 4.2MiB live, 46.1MiB allocated; 6ms collecting garbage
Compiler: Compiled 7 097 to 1 151 computations (83.8% saved)

prune32.0ms (0.3%)

Memory

-7.9MiB live, 38.2MiB allocated; 3ms collecting garbage

Pruning

29 alts after pruning (29 fresh and 0 done)

	Pruned	Kept	Total
New	191	29	220
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	192	29	221

Accuracy

99.4%

Counts

221 → 29

Alt Table

Click to see full alt table

Status	Accuracy	Program
	70.0%	(/.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)))))
	52.2%	(/.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)))))))
	32.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	92.3%	(+.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))))))
	99.1%	(+.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)))))))
	99.1%	(+.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))))))))
	92.3%	(+.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)))))))
	99.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (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))))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	99.1%	(+.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)))))))))
▶	82.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	98.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))))
	79.1%	(+.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))))))
	79.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	76.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	79.5%	(+.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))))))
	78.9%	(+.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))))))
	78.9%	(+.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.2%	(+.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)))))
	82.2%	(+.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)))))
	87.0%	(+.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))))))
	86.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	98.2%	(+.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.3%	(+.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))))))
▶	76.4%	(+.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))))))
	77.0%	(+.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))))))
	98.3%	(+.f64 lambda1 (atan2.f64 #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)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	78.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	99.1%	#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))
▶	53.6%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

Compiler

Compiled 2 040 to 1 204 computations (41% saved)

series96.0ms (0.9%)

Memory

-30.0MiB live, 120.3MiB allocated; 13ms collecting garbage

Counts

49 → 339

Calls

Call 1

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

Calls

12 calls:

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

rewrite253.0ms (2.3%)

Memory

9.4MiB live, 231.8MiB allocated; 28ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1242	14179
0	1337	12444
1	7559	12444
0	8601	12034

Stop Event

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

Counts

388 → 550

Calls

Call 1

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

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

eval125.0ms (1.1%)

Memory: -5.4MiB live, 193.9MiB allocated; 31ms collecting garbage
Compiler: Compiled 36 852 to 3 897 computations (89.4% saved)

prune70.0ms (0.6%)

Memory

22.5MiB live, 119.6MiB allocated; 11ms collecting garbage

Pruning

48 alts after pruning (47 fresh and 1 done)

	Pruned	Kept	Total
New	739	27	766
Fresh	4	20	24
Picked	4	1	5
Done	0	0	0
Total	747	48	795

Accuracy

99.5%

Counts

795 → 48

Alt Table

Click to see full alt table

Status	Accuracy	Program
	70.0%	(/.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)))))
	52.2%	(/.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)))))))
	32.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	92.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (.f64 (neg.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
	92.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (/.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 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
	92.3%	(+.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)))))))))
	91.3%	(+.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 #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))) (cos.f64 phi2))))))
	73.0%	(+.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))) #s(approx (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
▶	92.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))))
	71.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 #s(approx (pow (cos phi1) 2) #s(literal 1 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))))))
	99.1%	(+.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)))))))
	99.1%	(+.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))))))))
	92.3%	(+.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)))))))
▶	99.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (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))))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	71.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda2) lambda1))))))
	79.1%	(+.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))))))
	79.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	76.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	79.5%	(+.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))))))
	78.9%	(+.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))))))
	82.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ ( (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda2)) (cos.f64 phi2) (cos.f64 phi1)))))
▶	70.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ ( (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda2) lambda1)) (cos.f64 phi2) #s(literal 1 binary64)))))
	86.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ ( (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) #s(literal 2 binary64))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda2) (cos.f64 phi2)))))))
	78.9%	(+.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.2%	(+.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)))))
	82.2%	(+.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)))))
▶	86.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	98.3%	(+.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))))))
	76.4%	(+.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) (fma.f64 (sin.f64 (neg.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)))))))))
	75.9%	(+.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) #s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))))
	76.4%	(+.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 #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))) (cos.f64 (-.f64 lambda1 lambda2))))))
	76.5%	(+.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 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	76.3%	(+.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) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
	64.6%	(+.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 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (.f64 phi1 phi1) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	65.2%	(+.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 #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))))))
	66.0%	(+.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 #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	64.3%	(+.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 #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))))))
	76.0%	(+.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))) #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))))))
	76.0%	(+.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))) #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))))))
	77.0%	(+.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))))))
	98.3%	(+.f64 lambda1 (atan2.f64 #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)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	78.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	82.9%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda2) lambda1)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) #s(literal 1 binary64)) lambda1))
	78.9%	#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) #s(approx (cos phi1) #s(literal 1 binary64)))) lambda1) #s(literal 1 binary64)) lambda1))
	92.2%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
	92.3%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (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)))))) lambda1) #s(literal 1 binary64)) lambda1))
	78.3%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 (+.f64 (/.f64 (atan2.f64 #s(approx ( (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) #s(literal 1 binary64)) lambda1))
✓	53.6%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

Compiler

Compiled 3 886 to 2 325 computations (40.2% saved)

series95.0ms (0.9%)

Memory

-16.6MiB live, 126.2MiB allocated; 11ms collecting garbage

Counts

62 → 380

Calls

Call 1

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

Calls

12 calls:

Time	Variable		Point	Expression
10.0ms	phi2	@	-inf	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2)))) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2)))) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (+ (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2)))) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2)))) (sin phi1) phi1 (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos phi1) (sin (/ (PI) 2))) (cos phi1) (sin (/ (PI) 2)) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) (* phi2 phi2) 1/24 1/2 1 (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (* (cos (- lambda1 lambda2)) (cos phi2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (+ (* (sin (- (+ (* (PI) 1/2) lambda2) lambda1)) (cos phi2)) 1) (sin (- (+ (* (PI) 1/2) lambda2) lambda1)) (- (+ (* (PI) 1/2) lambda2) lambda1) (+ (* (PI) 1/2) lambda2) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (- 1 (/ lambda2 lambda1)) lambda1) (- 1 (/ lambda2 lambda1)) (/ lambda2 lambda1) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (/ (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* 1/2 (cos (* 2 phi1))) (cos (* 2 phi1)) (* 2 phi1) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos (- lambda1 lambda2)) (cos phi2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))
9.0ms	lambda1	@	-inf	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2)))) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2)))) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (+ (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2)))) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2)))) (sin phi1) phi1 (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos phi1) (sin (/ (PI) 2))) (cos phi1) (sin (/ (PI) 2)) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) (* phi2 phi2) 1/24 1/2 1 (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (* (cos (- lambda1 lambda2)) (cos phi2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (+ (* (sin (- (+ (* (PI) 1/2) lambda2) lambda1)) (cos phi2)) 1) (sin (- (+ (* (PI) 1/2) lambda2) lambda1)) (- (+ (* (PI) 1/2) lambda2) lambda1) (+ (* (PI) 1/2) lambda2) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (- 1 (/ lambda2 lambda1)) lambda1) (- 1 (/ lambda2 lambda1)) (/ lambda2 lambda1) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (/ (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* 1/2 (cos (* 2 phi1))) (cos (* 2 phi1)) (* 2 phi1) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos (- lambda1 lambda2)) (cos phi2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))
8.0ms	phi2	@	inf	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2)))) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2)))) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (+ (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2)))) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2)))) (sin phi1) phi1 (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos phi1) (sin (/ (PI) 2))) (cos phi1) (sin (/ (PI) 2)) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) (* phi2 phi2) 1/24 1/2 1 (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (* (cos (- lambda1 lambda2)) (cos phi2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (+ (* (sin (- (+ (* (PI) 1/2) lambda2) lambda1)) (cos phi2)) 1) (sin (- (+ (* (PI) 1/2) lambda2) lambda1)) (- (+ (* (PI) 1/2) lambda2) lambda1) (+ (* (PI) 1/2) lambda2) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (- 1 (/ lambda2 lambda1)) lambda1) (- 1 (/ lambda2 lambda1)) (/ lambda2 lambda1) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (/ (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* 1/2 (cos (* 2 phi1))) (cos (* 2 phi1)) (* 2 phi1) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos (- lambda1 lambda2)) (cos phi2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))
7.0ms	lambda1	@	inf	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2)))) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2)))) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (+ (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2)))) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2)))) (sin phi1) phi1 (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos phi1) (sin (/ (PI) 2))) (cos phi1) (sin (/ (PI) 2)) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) (* phi2 phi2) 1/24 1/2 1 (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (* (cos (- lambda1 lambda2)) (cos phi2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (+ (* (sin (- (+ (* (PI) 1/2) lambda2) lambda1)) (cos phi2)) 1) (sin (- (+ (* (PI) 1/2) lambda2) lambda1)) (- (+ (* (PI) 1/2) lambda2) lambda1) (+ (* (PI) 1/2) lambda2) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (- 1 (/ lambda2 lambda1)) lambda1) (- 1 (/ lambda2 lambda1)) (/ lambda2 lambda1) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (/ (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* 1/2 (cos (* 2 phi1))) (cos (* 2 phi1)) (* 2 phi1) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos (- lambda1 lambda2)) (cos phi2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))
7.0ms	lambda2	@	0	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2)))) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2)))) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (+ (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2)))) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2)))) (sin phi1) phi1 (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos phi1) (sin (/ (PI) 2))) (cos phi1) (sin (/ (PI) 2)) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) (* phi2 phi2) 1/24 1/2 1 (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (* (cos (- lambda1 lambda2)) (cos phi2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (+ (* (sin (- (+ (* (PI) 1/2) lambda2) lambda1)) (cos phi2)) 1) (sin (- (+ (* (PI) 1/2) lambda2) lambda1)) (- (+ (* (PI) 1/2) lambda2) lambda1) (+ (* (PI) 1/2) lambda2) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (- 1 (/ lambda2 lambda1)) lambda1) (- 1 (/ lambda2 lambda1)) (/ lambda2 lambda1) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (/ (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* 1/2 (cos (* 2 phi1))) (cos (* 2 phi1)) (* 2 phi1) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos (- lambda1 lambda2)) (cos phi2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))

rewrite209.0ms (1.9%)

Memory

-2.0MiB live, 231.5MiB allocated; 18ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1433	16089
0	1541	14105
0	8427	13481

Stop Event

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

Counts

442 → 562

Calls

Call 1

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

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

eval144.0ms (1.3%)

Memory: 46.7MiB live, 188.5MiB allocated; 32ms collecting garbage
Compiler: Compiled 44 246 to 4 120 computations (90.7% saved)

prune90.0ms (0.8%)

Memory

7.3MiB live, 145.9MiB allocated; 6ms collecting garbage

Pruning

59 alts after pruning (58 fresh and 1 done)

	Pruned	Kept	Total
New	904	31	935
Fresh	15	27	42
Picked	5	0	5
Done	0	1	1
Total	924	59	983

Accuracy

99.5%

Counts

983 → 59

Alt Table

Click to see full alt table

Status	Accuracy	Program
	70.0%	(/.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)))))
	50.4%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (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) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) (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) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 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) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))))
	32.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	92.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (.f64 (neg.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
	92.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (/.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 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
	92.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (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)))))))))
	92.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64))) (/.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi1)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))))))
	74.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64))) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2))))))
	91.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64))) (-.f64 (cos.f64 phi1) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))) (cos.f64 phi2))))))
▶	99.1%	(+.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)))))))
	92.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))))
	92.3%	(+.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)))))))
	71.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda2) lambda1))))))
	79.1%	(+.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))))))
	79.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	76.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 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	79.5%	(+.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))))))
	78.9%	(+.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))))))
	82.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ ( (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda2)) (cos.f64 phi2) (cos.f64 phi1)))))
	64.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ ( (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda2) lambda1)) #s(approx (cos phi2) (fma.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2) #s(literal 1 binary64))) #s(literal 1 binary64)))))
	70.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ ( (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (sin.f64 (-.f64 #s(approx (+ (* (PI) 1/2) lambda2) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (cos.f64 phi2) #s(literal 1 binary64)))))
	70.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ ( (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (sin.f64 #s(approx (- (+ (* (PI) 1/2) lambda2) lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2))) (cos.f64 phi2) #s(literal 1 binary64)))))
	59.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ ( (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (sin.f64 #s(approx (- (+ (* (PI) 1/2) lambda2) lambda1) (neg.f64 lambda1))) (cos.f64 phi2) #s(literal 1 binary64)))))
▶	59.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ ( (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (sin.f64 #s(approx (- (+ (* (PI) 1/2) lambda2) lambda1) lambda2)) (cos.f64 phi2) #s(literal 1 binary64)))))
	64.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ ( (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (+ (* (sin (- (+ (* (PI) 1/2) lambda2) lambda1)) (cos phi2)) 1) (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) #s(literal 1 binary64))))))
	71.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (-.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 phi1)) (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 (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)))))))))
	70.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (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))))))))
	78.9%	(+.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.2%	(+.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)))))
	82.2%	(+.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)))))
	79.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))))
	70.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #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 phi2) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))))
	84.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- 1 (/ lambda2 lambda1)) (.f64 lambda2 (-.f64 (pow.f64 lambda2 #s(literal -1 binary64)) (pow.f64 lambda1 #s(literal -1 binary64))))) lambda1)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	98.3%	(+.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))))))
	69.2%	(+.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 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi1)) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))))
	76.2%	(+.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 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.f64 (.f64 #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))))))
▶	76.4%	(+.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) (fma.f64 (sin.f64 (neg.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)))))))))
	76.4%	(+.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 #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))) (cos.f64 (-.f64 lambda1 lambda2))))))
	76.5%	(+.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 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	75.8%	(+.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) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))))
	65.2%	(+.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 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) #s(literal 1/2 binary64)) #s(literal 1 binary64))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
	64.4%	(+.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 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
	65.1%	(+.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 #s(approx (cos phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	65.9%	(+.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 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
	66.0%	(+.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))) #s(approx (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))))
	64.2%	(+.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 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (+.f64 (cos.f64 phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
	75.8%	(+.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))) #s(approx (sin (- lambda1 lambda2)) (fma.f64 lambda1 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) (neg.f64 (sin.f64 lambda2))))) (+.f64 (cos.f64 phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
	75.8%	(+.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))) #s(approx (sin (- lambda1 lambda2)) (fma.f64 lambda1 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (+.f64 (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
	76.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 #s(approx (- ( (* phi2 phi2) 1/24) 1/2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
	77.6%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
	98.3%	(+.f64 lambda1 (atan2.f64 #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)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	78.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	63.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda2) lambda1)) (cos.f64 phi2) #s(literal 1 binary64)))))
	82.9%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda2) lambda1)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) #s(literal 1 binary64)) lambda1))
	78.9%	#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) #s(approx (cos phi1) #s(literal 1 binary64)))) lambda1) #s(literal 1 binary64)) lambda1))
	92.2%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
	92.3%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (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)))))) lambda1) #s(literal 1 binary64)) lambda1))
	78.3%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 (+.f64 (/.f64 (atan2.f64 #s(approx ( (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) #s(literal 1 binary64)) lambda1))
✓	53.6%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

Compiler

Compiled 5 320 to 3 077 computations (42.2% saved)

series151.0ms (1.4%)

Memory

-36.3MiB live, 198.4MiB allocated; 23ms collecting garbage

Counts

66 → 431

Calls

Call 1

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

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

Calls

12 calls:

Time	Variable		Point	Expression
28.0ms	lambda1	@	inf	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (pow (cos phi1) 3)) (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (- (pow (cos phi1) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))))))) lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (pow (cos phi1) 3)) (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (- (pow (cos phi1) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (/ (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (pow (cos phi1) 3)) (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (- (pow (cos phi1) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))))) (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (pow (cos phi1) 3)) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) 3 (pow (cos phi1) 3) (cos phi1) phi1 (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (- (pow (cos phi1) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) 2 (- (pow (cos phi1) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (pow (cos phi1) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) (* phi2 phi2) 1/24 1/2 1 (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (+ (* (sin (- (+ (* (PI) 1/2) lambda2) lambda1)) (cos phi2)) 1) (sin (- (+ (* (PI) 1/2) lambda2) lambda1)) (- (+ (* (PI) 1/2) lambda2) lambda1) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (neg lambda1) (neg (sin lambda2)) (sin lambda2) (cos lambda2) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (neg (- lambda1 lambda2))) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (neg (- lambda1 lambda2))) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (neg (- lambda1 lambda2))) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (cos phi2) (+ (* (sin (neg (- lambda1 lambda2))) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (neg (- lambda1 lambda2))) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (sin (neg (- lambda1 lambda2))) (neg (- lambda1 lambda2)) (cos (/ (PI) 2)) (/ (PI) 2) (PI) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (sin (/ (PI) 2)))
11.0ms	phi2	@	inf	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (pow (cos phi1) 3)) (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (- (pow (cos phi1) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))))))) lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (pow (cos phi1) 3)) (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (- (pow (cos phi1) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (/ (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (pow (cos phi1) 3)) (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (- (pow (cos phi1) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))))) (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (pow (cos phi1) 3)) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) 3 (pow (cos phi1) 3) (cos phi1) phi1 (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (- (pow (cos phi1) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) 2 (- (pow (cos phi1) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (pow (cos phi1) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) (* phi2 phi2) 1/24 1/2 1 (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (+ (* (sin (- (+ (* (PI) 1/2) lambda2) lambda1)) (cos phi2)) 1) (sin (- (+ (* (PI) 1/2) lambda2) lambda1)) (- (+ (* (PI) 1/2) lambda2) lambda1) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (neg lambda1) (neg (sin lambda2)) (sin lambda2) (cos lambda2) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (neg (- lambda1 lambda2))) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (neg (- lambda1 lambda2))) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (neg (- lambda1 lambda2))) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (cos phi2) (+ (* (sin (neg (- lambda1 lambda2))) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (neg (- lambda1 lambda2))) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (sin (neg (- lambda1 lambda2))) (neg (- lambda1 lambda2)) (cos (/ (PI) 2)) (/ (PI) 2) (PI) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (sin (/ (PI) 2)))
11.0ms	lambda2	@	-inf	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (pow (cos phi1) 3)) (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (- (pow (cos phi1) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))))))) lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (pow (cos phi1) 3)) (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (- (pow (cos phi1) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (/ (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (pow (cos phi1) 3)) (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (- (pow (cos phi1) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))))) (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (pow (cos phi1) 3)) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) 3 (pow (cos phi1) 3) (cos phi1) phi1 (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (- (pow (cos phi1) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) 2 (- (pow (cos phi1) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (pow (cos phi1) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) (* phi2 phi2) 1/24 1/2 1 (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (+ (* (sin (- (+ (* (PI) 1/2) lambda2) lambda1)) (cos phi2)) 1) (sin (- (+ (* (PI) 1/2) lambda2) lambda1)) (- (+ (* (PI) 1/2) lambda2) lambda1) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (neg lambda1) (neg (sin lambda2)) (sin lambda2) (cos lambda2) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (neg (- lambda1 lambda2))) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (neg (- lambda1 lambda2))) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (neg (- lambda1 lambda2))) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (cos phi2) (+ (* (sin (neg (- lambda1 lambda2))) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (neg (- lambda1 lambda2))) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (sin (neg (- lambda1 lambda2))) (neg (- lambda1 lambda2)) (cos (/ (PI) 2)) (/ (PI) 2) (PI) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (sin (/ (PI) 2)))
11.0ms	lambda1	@	0	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (pow (cos phi1) 3)) (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (- (pow (cos phi1) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))))))) lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (pow (cos phi1) 3)) (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (- (pow (cos phi1) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (/ (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (pow (cos phi1) 3)) (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (- (pow (cos phi1) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))))) (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (pow (cos phi1) 3)) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) 3 (pow (cos phi1) 3) (cos phi1) phi1 (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (- (pow (cos phi1) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) 2 (- (pow (cos phi1) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (pow (cos phi1) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) (* phi2 phi2) 1/24 1/2 1 (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (+ (* (sin (- (+ (* (PI) 1/2) lambda2) lambda1)) (cos phi2)) 1) (sin (- (+ (* (PI) 1/2) lambda2) lambda1)) (- (+ (* (PI) 1/2) lambda2) lambda1) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (neg lambda1) (neg (sin lambda2)) (sin lambda2) (cos lambda2) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (neg (- lambda1 lambda2))) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (neg (- lambda1 lambda2))) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (neg (- lambda1 lambda2))) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (cos phi2) (+ (* (sin (neg (- lambda1 lambda2))) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (neg (- lambda1 lambda2))) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (sin (neg (- lambda1 lambda2))) (neg (- lambda1 lambda2)) (cos (/ (PI) 2)) (/ (PI) 2) (PI) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (sin (/ (PI) 2)))
10.0ms	lambda2	@	0	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (pow (cos phi1) 3)) (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (- (pow (cos phi1) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))))))) lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (pow (cos phi1) 3)) (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (- (pow (cos phi1) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (/ (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (pow (cos phi1) 3)) (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (- (pow (cos phi1) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))))) (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (pow (cos phi1) 3)) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) 3 (pow (cos phi1) 3) (cos phi1) phi1 (+ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (- (pow (cos phi1) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) 2 (- (pow (cos phi1) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (pow (cos phi1) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) (* phi2 phi2) 1/24 1/2 1 (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (+ (* (sin (- (+ (* (PI) 1/2) lambda2) lambda1)) (cos phi2)) 1) (sin (- (+ (* (PI) 1/2) lambda2) lambda1)) (- (+ (* (PI) 1/2) lambda2) lambda1) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (neg lambda1) (neg (sin lambda2)) (sin lambda2) (cos lambda2) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (neg (- lambda1 lambda2))) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (neg (- lambda1 lambda2))) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (cos phi1) (* (cos phi2) (+ (* (sin (neg (- lambda1 lambda2))) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (cos phi2) (+ (* (sin (neg (- lambda1 lambda2))) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (neg (- lambda1 lambda2))) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (sin (neg (- lambda1 lambda2))) (neg (- lambda1 lambda2)) (cos (/ (PI) 2)) (/ (PI) 2) (PI) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (sin (/ (PI) 2)))

rewrite246.0ms (2.2%)

Memory

44.4MiB live, 273.9MiB allocated; 21ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1860	24346
0	1964	21922
0	8477	21273

Stop Event

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

Counts

497 → 578

Calls

Call 1

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

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

eval763.0ms (6.9%)

Memory: -39.4MiB live, 285.1MiB allocated; 1.2s collecting garbage
Compiler: Compiled 70 738 to 5 354 computations (92.4% saved)

prune134.0ms (1.2%)

Memory

-11.5MiB live, 222.9MiB allocated; 23ms collecting garbage

Pruning

72 alts after pruning (71 fresh and 1 done)

	Pruned	Kept	Total
New	1 074	26	1 100
Fresh	8	45	53
Picked	5	0	5
Done	0	1	1
Total	1 087	72	1 159

Accuracy

99.6%

Counts

1 159 → 72

Alt Table

Click to see full alt table

Status	Accuracy	Program
	70.0%	(/.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)))))
	40.9%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (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 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) (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 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 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 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))))
	32.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	92.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (.f64 (neg.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
	92.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (/.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 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
	92.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (/.f64 (-.f64 (.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 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 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)))))))
	92.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (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)))))))))
	92.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64))) (/.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi1)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))))))
	74.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64))) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2))))))
	55.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (exp.f64 (.f64 (log.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)))))))
	92.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))))
	92.3%	(+.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)))))))
	99.1%	(+.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)) (+.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 (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))))))))
	71.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda2) lambda1))))))
	79.1%	(+.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))))))
	79.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	79.5%	(+.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))))))
	78.9%	(+.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))))))
	82.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ ( (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda2)) (cos.f64 phi2) (cos.f64 phi1)))))
	64.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ ( (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda2) lambda1)) #s(approx (cos phi2) (fma.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2) #s(literal 1 binary64))) #s(literal 1 binary64)))))
	70.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ ( (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (sin.f64 (-.f64 #s(approx (+ (* (PI) 1/2) lambda2) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (cos.f64 phi2) #s(literal 1 binary64)))))
	70.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ ( (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (sin.f64 #s(approx (- (+ (* (PI) 1/2) lambda2) lambda1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2))) (cos.f64 phi2) #s(literal 1 binary64)))))
	59.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ ( (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (sin.f64 #s(approx (- (+ (* (PI) 1/2) lambda2) lambda1) (neg.f64 lambda1))) (cos.f64 phi2) #s(literal 1 binary64)))))
	58.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ ( (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (sin.f64 #s(approx (- (+ (* (PI) 1/2) lambda2) lambda1) lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)))) #s(literal 1 binary64)))))
	59.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ ( (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (sin.f64 #s(approx (- (+ (* (PI) 1/2) lambda2) lambda1) lambda2)) #s(approx (cos phi2) #s(literal 1 binary64)) #s(literal 1 binary64)))))
	78.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ ( (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (/.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))))))))
	76.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ ( (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (+.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))))))))
	64.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ ( (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (+ (* (sin (- (+ (* (PI) 1/2) lambda2) lambda1)) (cos phi2)) 1) (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda2) lambda1)) #s(literal 1 binary64))))))
	71.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (-.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 phi1)) (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 (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)))))))))
	70.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (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))))))))
	78.9%	(+.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.2%	(+.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)))))
	82.2%	(+.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)))))
	79.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))))
	70.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #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 phi2) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))))
	84.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- 1 (/ lambda2 lambda1)) (.f64 lambda2 (-.f64 (pow.f64 lambda2 #s(literal -1 binary64)) (pow.f64 lambda1 #s(literal -1 binary64))))) lambda1)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	98.3%	(+.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))))))
	58.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ ( (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (sin.f64 #s(approx (- (+ (* (PI) 1/2) lambda2) lambda1) lambda2)) (cos.f64 phi2) #s(literal 1 binary64)))))
	75.9%	(+.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))) (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))))
	69.2%	(+.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 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi1)) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))))
	56.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 (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64))) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))))
	76.2%	(+.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 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.f64 (.f64 #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))))))
	76.5%	(+.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 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))))
	68.8%	(+.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) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) #s(approx (neg (sin lambda2)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (*.f64 lambda2 lambda2)) #s(literal 1 binary64)))) (cos.f64 lambda2)))))))
	67.2%	(+.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) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))))))
	67.2%	(+.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) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))))
	67.8%	(+.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) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64)))))))
	76.3%	(+.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) #s(approx (* (cos phi2) (+ (* (sin (neg (- lambda1 lambda2))) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
	65.2%	(+.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 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) #s(literal 1/2 binary64)) #s(literal 1 binary64))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
	64.4%	(+.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 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
	65.1%	(+.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 #s(approx (cos phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
	62.4%	(+.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 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	66.0%	(+.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))) #s(approx (+ (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))))
	53.8%	(+.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 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
	75.9%	(+.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))) #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 (cos.f64 phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))))
	65.6%	(+.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))) #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) #s(literal 1 binary64)) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
	75.9%	(+.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))) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 lambda1 (cos.f64 lambda2))))) (+.f64 (cos.f64 phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))))
	65.6%	(+.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))) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 lambda1 (cos.f64 lambda2))))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
	76.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 #s(approx (- ( (* phi2 phi2) 1/24) 1/2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
	66.0%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 #s(approx (- ( (* phi2 phi2) 1/24) 1/2) #s(literal -1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
	77.6%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
	77.1%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))))
	66.9%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
	98.3%	(+.f64 lambda1 (atan2.f64 #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)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	78.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	57.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (sin.f64 #s(approx (- (+ (* (PI) 1/2) lambda2) lambda1) lambda2)) (cos.f64 phi2) #s(literal 1 binary64)))))
	82.9%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda2) lambda1)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) #s(literal 1 binary64)) lambda1))
	78.9%	#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) #s(approx (cos phi1) #s(literal 1 binary64)))) lambda1) #s(literal 1 binary64)) lambda1))
	92.2%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
	92.3%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (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)))))) lambda1) #s(literal 1 binary64)) lambda1))
	78.3%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 (+.f64 (/.f64 (atan2.f64 #s(approx ( (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) lambda1) #s(literal 1 binary64)) lambda1))
✓	53.6%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

Compiler

Compiled 8 779 to 2 737 computations (68.8% saved)

regimes201.0ms (1.8%)

Memory

8.0MiB live, 242.5MiB allocated; 16ms collecting garbage

Counts

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

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

Results

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

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes112.0ms (1%)

Memory

-24.7MiB live, 129.9MiB allocated; 19ms collecting garbage

Counts

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

19.0ms	lambda1
18.0ms	(cos.f64 phi1)
15.0ms	phi1
14.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))))))

Results

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

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes105.0ms (1%)

Memory

44.6MiB live, 133.3MiB allocated; 7ms collecting garbage

Counts

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

Outputs

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

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

Calls

7 calls:

19.0ms	phi1
15.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	lambda2
14.0ms	phi2
14.0ms	lambda1

Results

Accuracy	Segments	Branch
91.2%	2	`(cos.f64 phi1)`
93.1%	3	`(cos.f64 phi2)`
91.0%	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))))))`
82.2%	1	`lambda1`
92.0%	3	`lambda2`
93.4%	3	`phi1`
92.6%	3	`phi2`

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes45.0ms (0.4%)

Memory

-28.1MiB live, 70.0MiB allocated; 5ms collecting garbage

Counts

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

Outputs

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

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

Calls

3 calls:

15.0ms	(cos.f64 phi2)
14.0ms	phi1
13.0ms	(cos.f64 phi1)

Results

Accuracy	Segments	Branch
89.8%	2	`(cos.f64 phi1)`
91.2%	2	`(cos.f64 phi2)`
89.9%	2	`phi1`

Compiler

Compiled 5 to 14 computations (-180% saved)

regimes27.0ms (0.2%)

Memory

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

Counts

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

Outputs

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

Calls

2 calls:

13.0ms	phi2
12.0ms	(cos.f64 phi2)

Results

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

Compiler

Compiled 3 to 9 computations (-200% saved)

regimes74.0ms (0.7%)

Memory

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

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

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

Calls

6 calls:

16.0ms	lambda2
11.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))))))
11.0ms	phi1
11.0ms	phi2
10.0ms	(cos.f64 phi2)

Results

Accuracy	Segments	Branch
83.4%	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))))))`
89.3%	2	`(cos.f64 phi1)`
89.3%	2	`phi1`
81.2%	2	`lambda2`
89.3%	2	`phi2`
89.4%	2	`(cos.f64 phi2)`

Compiler

Compiled 27 to 36 computations (-33.3% saved)

regimes67.0ms (0.6%)

Memory

42.5MiB live, 94.5MiB allocated; 6ms collecting garbage

Counts

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

Outputs
(+.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))))))

Calls

7 calls:

13.0ms	phi2
9.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))))))
9.0ms	lambda1
9.0ms	lambda2
9.0ms	phi1

Results

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

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes61.0ms (0.6%)

Memory

-11.2MiB live, 81.5MiB allocated; 2ms collecting garbage

Counts

33 → 2

Calls

Call 1

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

Outputs

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

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

Calls

7 calls:

9.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))))))
8.0ms	phi1
8.0ms	lambda2
8.0ms	phi2
8.0ms	lambda1

Results

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

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes63.0ms (0.6%)

Memory

-1.0MiB live, 92.7MiB allocated; 9ms collecting garbage

Counts

31 → 2

Calls

Call 1

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

Outputs

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

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

Calls

7 calls:

13.0ms	lambda1
9.0ms	phi2
8.0ms	phi1
8.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))))))
8.0ms	lambda2

Results

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

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes6.0ms (0.1%)

Memory

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

Counts

19 → 2

Calls

Call 1

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

Outputs

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

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

Calls

1 calls:

5.0ms

(cos.f64 phi2)

Results

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

Compiler

Compiled 2 to 5 computations (-150% saved)

regimes9.0ms (0.1%)

Memory

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

Outputs

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

Calls

2 calls:

4.0ms	phi2
4.0ms	(cos.f64 phi2)

Results

Accuracy	Segments	Branch
77.6%	1	`phi2`
77.6%	1	`(cos.f64 phi2)`

Compiler

Compiled 3 to 9 computations (-200% saved)

regimes33.0ms (0.3%)

Memory

-39.5MiB live, 50.6MiB allocated; 6ms collecting garbage

Counts

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

Outputs

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

Calls

7 calls:

5.0ms	phi2
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	lambda2
4.0ms	phi1
4.0ms	lambda1

Results

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

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes12.0ms (0.1%)

Memory

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

Counts

3 → 1

Calls

Call 1

Inputs

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

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

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 28 to 40 computations (-42.9% saved)

regimes8.0ms (0.1%)

Memory

14.2MiB live, 14.2MiB 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	phi2
1.0ms	lambda1
1.0ms	phi1
1.0ms	lambda2

Results

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

Compiler

Compiled 28 to 40 computations (-42.9% saved)

bsearch85.0ms (0.8%)

Memory

-17.7MiB live, 84.7MiB allocated; 16ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
51.0ms	1.4517629873824913e+168	1.8122789609369403e+169
29.0ms	0.4027992217182356	1.298188169640213

Samples

60.0ms	84×	1	valid
12.0ms	92×	0	valid

Compiler

Compiled 671 to 491 computations (26.8% saved)

Precisions

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

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

ival-sin: 16.0ms (24.4% of total)

adjust: 6.0ms (9.2% of total)

ival-mult: 4.0ms (6.1% of total)

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

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

ival-sub: 1.0ms (1.5% of total)

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

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

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.9057417912019242	0.9171570422886381

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.9057417912019242	0.9171570422886381

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.9057417912019242	0.9171570422886381

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-0.19374356277801824	-0.19202898795399326

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.4687339910899685	0.472544588790936

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.6578074801992091	0.659002920590281

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch24.0ms (0.2%)

Memory

-29.0MiB live, 16.8MiB allocated; 2ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
23.0ms	604899257698650100.0	820503062957178600.0

Samples

17.0ms	24×	1	valid
3.0ms	24×	0	valid

Compiler

Compiled 302 to 210 computations (30.5% saved)

Precisions

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

ival-cos: 11.0ms (60.4% of total)

adjust: 2.0ms (11% of total)

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

ival-mult: 1.0ms (5.5% of total)

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

ival-add: 1.0ms (5.5% of total)

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

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

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

simplify55.0ms (0.5%)

Memory

20.2MiB live, 63.1MiB allocated; 6ms collecting garbage

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	145	844
1	206	843
2	332	842
3	609	842
4	1154	842
5	2750	842

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 phi1 #s(literal 7385903388887613/18014398509481984 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (if (<=.f64 phi1 #s(literal 13499999999999999526110678079736315953709609115742166984988034994666251784305944359251973779842263311865918304811662155233277209309194061889081527696280647162225728946176 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) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 8196551321814303/9007199254740992 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 8196551321814303/9007199254740992 binary64)) (+.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) #s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 8196551321814303/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 (-.f64 lambda1 lambda2)) (cos.f64 phi2) #s(literal 1 binary64))))) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
(if (<=.f64 (cos.f64 phi2) #s(literal -3476778912330023/18014398509481984 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ ( (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda2) lambda1)) #s(approx (cos phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2) #s(literal 1 binary64))) #s(literal 1 binary64))))) (+.f64 lambda1 (atan2.f64 #s(approx ( (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 2116691824864133/4503599627370496 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ ( (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda2) lambda1)) #s(approx (cos phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2) #s(literal 1 binary64))) #s(literal 1 binary64))))) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 5926737109619573/9007199254740992 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ ( (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (sin.f64 #s(approx (- (+ (* (PI) 1/2) lambda2) lambda1) lambda2)) #s(approx (cos phi2) #s(literal 1 binary64)) #s(literal 1 binary64))))) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
(if (<=.f64 phi1 #s(literal 620000000000000000 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 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) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (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)))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ ( (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
(if (<=.f64 phi1 #s(literal 7385903388887613/18014398509481984 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (if (<=.f64 phi1 #s(literal 13499999999999999526110678079736315953709609115742166984988034994666251784305944359251973779842263311865918304811662155233277209309194061889081527696280647162225728946176 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) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(if (<=.f64 phi1 #s(literal 7385903388887613/18014398509481984 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (if (<=.f64 phi1 #s(literal 13499999999999999526110678079736315953709609115742166984988034994666251784305944359251973779842263311865918304811662155233277209309194061889081527696280647162225728946176 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ ( (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (cos.f64 phi1))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 8196551321814303/9007199254740992 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 8196551321814303/9007199254740992 binary64)) (+.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) #s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 8196551321814303/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 (-.f64 lambda1 lambda2)) (cos.f64 phi2) #s(literal 1 binary64))))) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 8196551321814303/9007199254740992 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ ( (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) #s(literal 1 binary64))))) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
(if (<=.f64 (cos.f64 phi2) #s(literal -3476778912330023/18014398509481984 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ ( (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda2) lambda1)) #s(approx (cos phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2) #s(literal 1 binary64))) #s(literal 1 binary64))))) (+.f64 lambda1 (atan2.f64 #s(approx ( (cos phi2) (sin (- lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 2116691824864133/4503599627370496 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ ( (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (sin.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) lambda2) lambda1)) #s(approx (cos phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2) #s(literal 1 binary64))) #s(literal 1 binary64))))) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))))
(if (<=.f64 (cos.f64 phi2) #s(literal 5926737109619573/9007199254740992 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ ( (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (sin.f64 #s(approx (- (+ (* (PI) 1/2) lambda2) lambda1) lambda2)) #s(approx (cos phi2) #s(literal 1 binary64)) #s(literal 1 binary64))))) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
(if (<=.f64 phi1 #s(literal 620000000000000000 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 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) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1)

derivations435.0ms (3.9%)

Memory

2.1MiB live, 334.1MiB allocated; 24ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 844 to 146 computations (82.7% saved)

preprocess91.0ms (0.8%)

Memory

30.8MiB live, 121.3MiB allocated; 9ms collecting garbage

Remove

(abs phi2)

(abs phi1)

Compiler

Compiled 2 048 to 544 computations (73.4% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze1.3s (11.6%)

sample4.9s (44.8%)

explain412.0ms (3.7%)

preprocess183.0ms (1.7%)

eval0.0ms (0%)

prune1.0ms (0%)

series49.0ms (0.4%)

rewrite215.0ms (1.9%)

eval37.0ms (0.3%)

prune32.0ms (0.3%)

series96.0ms (0.9%)

rewrite253.0ms (2.3%)

eval125.0ms (1.1%)

prune70.0ms (0.6%)

series95.0ms (0.9%)

rewrite209.0ms (1.9%)

eval144.0ms (1.3%)

prune90.0ms (0.8%)

series151.0ms (1.4%)

rewrite246.0ms (2.2%)

eval763.0ms (6.9%)

prune134.0ms (1.2%)

regimes201.0ms (1.8%)

regimes112.0ms (1%)

regimes105.0ms (1%)

regimes45.0ms (0.4%)

regimes27.0ms (0.2%)

regimes74.0ms (0.7%)

regimes67.0ms (0.6%)

regimes61.0ms (0.6%)

regimes63.0ms (0.6%)

regimes6.0ms (0.1%)

regimes9.0ms (0.1%)

regimes33.0ms (0.3%)

regimes12.0ms (0.1%)

regimes8.0ms (0.1%)

bsearch85.0ms (0.8%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch24.0ms (0.2%)

simplify55.0ms (0.5%)

derivations435.0ms (3.9%)

preprocess91.0ms (0.8%)

end0.0ms (0%)

Profiling