Metrics for Midpoint on a great circle

start0.0ms (0%)

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

analyze671.0ms (6.4%)

Memory

13.9MiB live, 830.5MiB allocated; 200ms collecting garbage

Algorithm

1×

Search

Probability	Valid	Unknown	Precondition	Infinite	Domain	Can't	Iter
0%	0%	99.8%	0.2%	0%	0%	0%	0
0%	0%	99.8%	0.2%	0%	0%	0%	1
0%	0%	99.8%	0.2%	0%	0%	0%	2
0%	0%	99.8%	0.2%	0%	0%	0%	3
0%	0%	99.8%	0.2%	0%	0%	0%	4
0%	0%	99.8%	0.2%	0%	0%	0%	5
0%	0%	99.8%	0.2%	0%	0%	0%	6
0%	0%	99.8%	0.2%	0%	0%	0%	7
0%	0%	99.8%	0.2%	0%	0%	0%	8
9.4%	9.4%	90.4%	0.2%	0%	0%	0%	9
9.4%	9.4%	90.4%	0.2%	0%	0%	0%	10
10.9%	10.9%	88.9%	0.2%	0%	0%	0%	11
10.9%	10.9%	88.9%	0.2%	0%	0%	0%	12

Compiler

Compiled 22 to 16 computations (27.3% saved)

sample5.0s (48.3%)

Memory

11.0MiB live, 5 359.5MiB allocated; 1.7s collecting garbage

Samples

3.8s	4 428×	1	valid
581.0ms	3 820×	0	valid
7.0ms	8×	2	valid

Precisions

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

ival-cos: 2.6s (63.3% of total)

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

adjust: 351.0ms (8.7% of total)

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

ival-mult!: 252.0ms (6.2% of total)

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

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

Bogosity

preprocess46.0ms (0.4%)

Memory

-22.3MiB live, 25.5MiB allocated; 8ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	95	314
1	337	313
2	2978	313

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

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

Symmetry

(abs phi1)

(abs phi2)

Compiler

Compiled 32 to 28 computations (12.5% saved)

series35.0ms (0.3%)

Memory

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

Counts

14 → 96

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 (* (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 (+ 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 (+ 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)) (* -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 (* -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)) (* -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
4.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)))
4.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	lambda2	@	-inf	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (cos phi1) phi1 (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)))
3.0ms	lambda1	@	0	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (cos phi1) phi1 (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)))
3.0ms	lambda2	@	inf	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (cos phi1) phi1 (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)))

rewrite178.0ms (1.7%)

Memory

-19.5MiB live, 159.6MiB allocated; 22ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	365	2297
0	385	2225
1	2233	2223
0	9408	2095

Stop Event

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

Counts

110 → 178

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

eval27.0ms (0.3%)

Memory: -9.7MiB live, 35.7MiB allocated; 3ms collecting garbage
Compiler: Compiled 2 818 to 1 072 computations (62% saved)

prune26.0ms (0.3%)

Memory

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

Pruning

29 alts after pruning (29 fresh and 0 done)

	Pruned	Kept	Total
New	138	29	167
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	139	29	168

Accuracy

98.9%

Counts

168 → 29

Alt Table

Click to see full alt table

Status	Accuracy	Program
	56.3%	(/.f64 (fma.f64 (.f64 lambda1 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 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)))))))
	70.6%	(/.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)))))
	70.7%	(-.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))))))
	54.1%	(+.f64 lambda1 (atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	31.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 (.f64 (.f64 lambda1 lambda1) lambda1) (.f64 (.f64 lambda2 lambda2) lambda2)) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (.f64 (.f64 lambda1 lambda1) lambda1) (.f64 (.f64 lambda2 lambda2) lambda2)) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))))))
▶	91.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 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
	98.4%	(+.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))) (+.f64 (+.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 2 binary64)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))))
	91.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)))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))))
	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (+.f64 (+.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 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))) (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)) (+.f64 (+.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 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))))))
▶	98.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
	98.0%	(+.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)))))))
▶	77.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2)))))))
	76.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	79.8%	(+.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.5%	(+.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.5%	(+.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.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
	78.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.9%	(+.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 lambda1 lambda2)) (cos.f64 phi2) #s(literal 1 binary64)) (.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))))))
	77.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))
	98.1%	(+.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))))))
	75.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	98.1%	(+.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))))))
	65.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	75.0%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #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))))))
	74.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 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	75.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))))
	40.9%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))))
	98.5%	#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))

Compiler

Compiled 1 654 to 1 264 computations (23.6% saved)

series102.0ms (1%)

Memory

-23.6MiB live, 122.7MiB allocated; 13ms collecting garbage

Counts

61 → 282

Calls

Call 1

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

Calls

12 calls:

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

rewrite191.0ms (1.8%)

Memory

14.9MiB live, 195.9MiB allocated; 18ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1349	15166
0	1460	13278
0	8128	12972

Stop Event

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

Counts

343 → 442

Calls

Call 1

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

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

eval100.0ms (1%)

Memory: -15.8MiB live, 125.5MiB allocated; 35ms collecting garbage
Compiler: Compiled 15 623 to 3 867 computations (75.2% saved)

prune62.0ms (0.6%)

Memory

42.3MiB live, 88.9MiB allocated; 2ms collecting garbage

Pruning

51 alts after pruning (51 fresh and 0 done)

	Pruned	Kept	Total
New	590	33	623
Fresh	6	18	24
Picked	5	0	5
Done	0	0	0
Total	601	51	652

Accuracy

98.9%

Counts

652 → 51

Alt Table

Click to see full alt table

Status	Accuracy	Program
	56.3%	(/.f64 (fma.f64 (.f64 lambda1 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 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)))))))
	70.6%	(/.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)))))
	37.2%	(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))) (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #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 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))))))
	70.7%	(-.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))))))
	31.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 (.f64 (.f64 lambda1 lambda1) lambda1) (.f64 (.f64 lambda2 lambda2) lambda2)) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (.f64 (.f64 lambda1 lambda1) lambda1) (.f64 (.f64 lambda2 lambda2) lambda2)) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))))))
	91.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 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)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 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))))))
	91.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 (-.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 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.8%	(+.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 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 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)))))))
▶	91.3%	(+.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))) #s(approx (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (+.f64 (cos.f64 phi1) (.f64 (.f64 lambda1 (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))
	91.8%	(+.f64 lambda1 (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 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
	98.4%	(+.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))) (+.f64 (+.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 2 binary64)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))))
	91.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 phi1 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)))))))
	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (+.f64 (+.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 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))) (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)) (+.f64 (+.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 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))))))
▶	98.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))))))
	98.0%	(+.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)))))))
	56.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) #s(approx (+ (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2))) (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
	76.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	79.8%	(+.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.5%	(+.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))))))
	72.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 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)))) (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))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 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 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))
	70.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 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)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (+.f64 phi1 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 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 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)))))))))
	84.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 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)))) (/.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 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)))))))
	70.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 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)))) (/.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))))))))
	77.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 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)))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
	78.5%	(+.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.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
	78.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.9%	(+.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 lambda1 lambda2)) (cos.f64 phi2) #s(literal 1 binary64)) (.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))))))
	98.1%	(+.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))))))
	91.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 lambda1 (cos.f64 lambda2))))) (/.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))))))
	65.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	65.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.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))))))
	55.8%	(+.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 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)))) (-.f64 (.f64 (.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 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.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)))))))))
	64.8%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))))
	62.7%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi1 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))))))
	61.6%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64))))) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))))
▶	65.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.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.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 #s(literal 1/2 binary64) (*.f64 phi2 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
	74.6%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
	63.7%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64))))))))
	67.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) (+.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 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))))))
	69.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 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 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
	75.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #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) (.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.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 lambda1 (cos.f64 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))))))
	57.6%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (+.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))))))
	55.9%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)))) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.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)) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2))))) #s(literal 2 binary64))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (*.f64 phi2 phi2)))))))))
	75.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)))) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
	51.1%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(approx (+ ( (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64))))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))))
	91.7%	#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)))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (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 phi1 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))))
	40.9%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))))
▶	98.5%	#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))

Compiler

Compiled 3 738 to 2 712 computations (27.4% saved)

series107.0ms (1%)

Memory

-10.9MiB live, 128.4MiB allocated; 11ms collecting garbage

Counts

62 → 313

Calls

Call 1

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

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

Calls

12 calls:

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

rewrite193.0ms (1.9%)

Memory

20.2MiB live, 202.2MiB allocated; 19ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1487	15439
0	1594	14494
0	8218	14214

Stop Event

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

Counts

375 → 458

Calls

Call 1

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

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

eval90.0ms (0.9%)

Memory: -13.6MiB live, 120.7MiB allocated; 13ms collecting garbage
Compiler: Compiled 14 615 to 3 902 computations (73.3% saved)

prune84.0ms (0.8%)

Memory

12.8MiB live, 113.6MiB allocated; 8ms collecting garbage

Pruning

72 alts after pruning (70 fresh and 2 done)

	Pruned	Kept	Total
New	541	31	572
Fresh	7	39	46
Picked	3	2	5
Done	0	0	0
Total	551	72	623

Accuracy

98.9%

Counts

623 → 72

Alt Table

Click to see full alt table

Status	Accuracy	Program
	56.3%	(/.f64 (fma.f64 (.f64 lambda1 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 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)))))))
	70.6%	(/.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)))))
	29.3%	(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))) (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.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 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))))))
	70.7%	(-.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))))))
	65.9%	(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))))
	31.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 (.f64 (.f64 lambda1 lambda1) lambda1) (.f64 (.f64 lambda2 lambda2) lambda2)) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (.f64 (.f64 lambda1 lambda1) lambda1) (.f64 (.f64 lambda2 lambda2) lambda2)) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))))))
	91.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 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)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 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))))))
	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 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(literal 2 binary64))) #s(approx (- (cos phi1) ( (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (+.f64 (cos.f64 phi1) (.f64 (.f64 lambda1 (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))
	91.8%	(+.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 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 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)))))))
	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))) #s(approx (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (+.f64 (cos.f64 phi1) (.f64 (.f64 lambda1 (cos.f64 phi2)) (cos.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))
	70.0%	(+.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))) #s(approx (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (cos phi2) (cos lambda2))) (-.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
	91.1%	(+.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))) #s(approx (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (cos phi2) (cos lambda2))) (.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (/.f64 (cos.f64 phi1) lambda1)) (/.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) lambda1))))))))
	91.6%	(+.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))) #s(approx (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (cos phi2) (cos lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) lambda1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))))))))
	87.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)))) #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 (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (+.f64 (cos.f64 phi1) (.f64 (.f64 lambda1 (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))
	91.8%	(+.f64 lambda1 (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 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
	78.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (pow.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (fma.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64)) (-.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))
▶	72.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 #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 (- (cos phi1) ( (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (+.f64 (cos.f64 phi1) (.f64 (.f64 lambda1 (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))
	91.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 phi1 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)))))))
▶	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (+.f64 (+.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 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))) (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)) (+.f64 (+.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 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))))))
	98.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) 1)) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 lambda2)))))))))
	98.0%	(+.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)))))))
	56.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) #s(approx (+ (* (* (* phi2 phi2) -1/2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2))) (.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
	76.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	79.8%	(+.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))))))
	66.4%	(+.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) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	72.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 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)))) (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))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 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 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))
	70.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 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)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (+.f64 phi1 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 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 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)))))))))
	84.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 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)))) (/.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 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)))))))
	70.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 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)))) (/.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))))))))
▶	77.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 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)))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
	78.5%	(+.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.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
	78.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.9%	(+.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 lambda1 lambda2)) (cos.f64 phi2) #s(literal 1 binary64)) (.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))))))
	67.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))))
	98.1%	(+.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))))))
	91.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 lambda1 (cos.f64 lambda2))))) (/.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))))))
	78.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 lambda1 (cos.f64 lambda2))))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	65.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	56.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	72.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	45.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64))) (.f64 (.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 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))))
	55.8%	(+.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 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)))) (-.f64 (.f64 (.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 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.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)))))))))
	46.1%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (pow.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (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 (.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 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))))))
	64.8%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))))
	62.7%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi1 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))))))
	60.3%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
✓	65.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.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.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 #s(literal 1/2 binary64) (*.f64 phi2 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
	74.6%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
	63.7%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64))))))))
	60.6%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))))))
	69.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 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 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
	58.9%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) #s(approx (sin (- lambda1 lambda2)) (-.f64 (sin.f64 lambda1) (.f64 #s(literal 1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.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.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #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) (.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.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 lambda1 (cos.f64 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))))))
	65.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #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)) (.f64 #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))))
	57.6%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (+.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))))))
	54.0%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))))
	63.0%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))))
	55.9%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)))) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.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)) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2))))) #s(literal 2 binary64))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (*.f64 phi2 phi2)))))))))
	75.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)))) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))))))
	64.8%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)) #s(literal 1/2 binary64))))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)) #s(literal 1/2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))))
	51.1%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(approx (+ ( (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64))))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))))
	43.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 (.f64 phi2 phi2) (-.f64 (/.f64 #s(literal 1 binary64) (.f64 phi2 phi2)) #s(literal 1/2 binary64))))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) #s(approx (+ (* (* phi2 phi2) -1/2) 1) (.f64 (.f64 phi2 phi2) (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi2)) #s(literal 1/2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))))
	51.9%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)))) (cos.f64 (-.f64 lambda1 lambda2))))))
	91.7%	#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)))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (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 phi1 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))))
	40.9%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))))
✓	98.5%	#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))
	79.8%	#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) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi1 phi1)))))) lambda1) #s(literal 1 binary64)) lambda1))
	75.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)) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)))) (cos.f64 phi1))) lambda1) #s(literal 1 binary64)) lambda1))
▶	51.1%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(approx (+ (/ (atan2 ( (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) lambda1) 1) #s(literal 1 binary64)) lambda1))

Compiler

Compiled 5 280 to 3 933 computations (25.5% saved)

series236.0ms (2.3%)

Memory

-2.0MiB live, 196.5MiB allocated; 145ms collecting garbage

Counts

57 → 437

Calls

Call 1

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

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

Calls

12 calls:

Time	Variable		Point	Expression
78.0ms	phi1	@	inf	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))))) lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (pow (cos phi1) 3) (cos phi1) phi1 3 (+ (+ 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)))) 1/2 (* 1/2 (cos (* 2 phi1))) (cos (* 2 phi1)) (* 2 phi1) 2 (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (* (+ (/ (atan2 (* (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) 1 (+ 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)))) (+ (cos phi1) (cos (- lambda1 lambda2))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (cos lambda2) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 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 (pow (* (cos phi2) (cos (- lambda1 lambda2))) 2)) (pow (* (cos phi2) (cos (- lambda1 lambda2))) 2) (* (cos phi2) (cos (- lambda1 lambda2))) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (- (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (cos phi2) (cos lambda2))) (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (* lambda1 (cos phi2)) (neg (sin lambda2))) (* lambda1 (cos phi2)) (neg (sin lambda2)) (sin lambda2) (* (cos phi2) (cos lambda2)))
17.0ms	phi2	@	0	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))))) lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (pow (cos phi1) 3) (cos phi1) phi1 3 (+ (+ 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)))) 1/2 (* 1/2 (cos (* 2 phi1))) (cos (* 2 phi1)) (* 2 phi1) 2 (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (* (+ (/ (atan2 (* (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) 1 (+ 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)))) (+ (cos phi1) (cos (- lambda1 lambda2))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (cos lambda2) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 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 (pow (* (cos phi2) (cos (- lambda1 lambda2))) 2)) (pow (* (cos phi2) (cos (- lambda1 lambda2))) 2) (* (cos phi2) (cos (- lambda1 lambda2))) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (- (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (cos phi2) (cos lambda2))) (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (* lambda1 (cos phi2)) (neg (sin lambda2))) (* lambda1 (cos phi2)) (neg (sin lambda2)) (sin lambda2) (* (cos phi2) (cos lambda2)))
17.0ms	lambda1	@	0	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))))) lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (pow (cos phi1) 3) (cos phi1) phi1 3 (+ (+ 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)))) 1/2 (* 1/2 (cos (* 2 phi1))) (cos (* 2 phi1)) (* 2 phi1) 2 (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (* (+ (/ (atan2 (* (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) 1 (+ 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)))) (+ (cos phi1) (cos (- lambda1 lambda2))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (cos lambda2) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 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 (pow (* (cos phi2) (cos (- lambda1 lambda2))) 2)) (pow (* (cos phi2) (cos (- lambda1 lambda2))) 2) (* (cos phi2) (cos (- lambda1 lambda2))) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (- (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (cos phi2) (cos lambda2))) (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (* lambda1 (cos phi2)) (neg (sin lambda2))) (* lambda1 (cos phi2)) (neg (sin lambda2)) (sin lambda2) (* (cos phi2) (cos lambda2)))
15.0ms	phi2	@	-inf	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))))) lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (pow (cos phi1) 3) (cos phi1) phi1 3 (+ (+ 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)))) 1/2 (* 1/2 (cos (* 2 phi1))) (cos (* 2 phi1)) (* 2 phi1) 2 (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (* (+ (/ (atan2 (* (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) 1 (+ 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)))) (+ (cos phi1) (cos (- lambda1 lambda2))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (cos lambda2) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 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 (pow (* (cos phi2) (cos (- lambda1 lambda2))) 2)) (pow (* (cos phi2) (cos (- lambda1 lambda2))) 2) (* (cos phi2) (cos (- lambda1 lambda2))) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (- (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (cos phi2) (cos lambda2))) (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (* lambda1 (cos phi2)) (neg (sin lambda2))) (* lambda1 (cos phi2)) (neg (sin lambda2)) (sin lambda2) (* (cos phi2) (cos lambda2)))
13.0ms	lambda2	@	0	((+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))))) lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))))) (* (cos phi2) (sin (- lambda1 lambda2))) (cos phi2) phi2 (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda2 (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (pow (cos phi1) 3) (cos phi1) phi1 3 (+ (+ 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)))) 1/2 (* 1/2 (cos (* 2 phi1))) (cos (* 2 phi1)) (* 2 phi1) 2 (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (* (+ (/ (atan2 (* (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) 1 (+ 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)))) (+ (cos phi1) (cos (- lambda1 lambda2))) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (cos lambda2) (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 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 (pow (* (cos phi2) (cos (- lambda1 lambda2))) 2)) (pow (* (cos phi2) (cos (- lambda1 lambda2))) 2) (* (cos phi2) (cos (- lambda1 lambda2))) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (- (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (cos phi2) (cos lambda2))) (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (* lambda1 (cos phi2)) (neg (sin lambda2))) (* lambda1 (cos phi2)) (neg (sin lambda2)) (sin lambda2) (* (cos phi2) (cos lambda2)))

rewrite296.0ms (2.8%)

Memory

23.1MiB live, 291.5MiB allocated; 32ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	2301	42045
0	2397	37779
0	9471	36777

Stop Event

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

Counts

494 → 553

Calls

Call 1

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

Outputs
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (+.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 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (+.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 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (+.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 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))))) (.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (+.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 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (+.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 2 binary64)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))))
lambda1
(atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (+.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 2 binary64)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))))
(*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2)))
(sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 phi2))
(cos.f64 phi2)
phi2
(sin.f64 (-.f64 lambda1 lambda2))
(-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))
(/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2))))
(-.f64 lambda1 lambda2)
lambda2
(/.f64 (+.f64 (pow.f64 (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (+.f64 (+.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 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))) #s(literal 3 binary64)) (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)) (+.f64 (+.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 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))) #s(literal 3 binary64))) (fma.f64 (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (+.f64 (+.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 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (+.f64 (+.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 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))) (-.f64 (.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)) (+.f64 (+.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 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))) (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)) (+.f64 (+.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 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)) (+.f64 (+.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 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))) (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)) (+.f64 (+.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 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))))))
(/.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (+.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 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
(/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (+.f64 (+.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 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)))) (-.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)))) (.f64 (+.f64 (+.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 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)))) (-.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))))
(+.f64 (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (+.f64 (+.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 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))) (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)) (+.f64 (+.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 2 binary64)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))))
(/.f64 (neg.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (neg.f64 (+.f64 (+.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 2 binary64)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))))
(/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (+.f64 (+.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 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)))) (cos.f64 phi1))
(.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))
(pow.f64 (cos.f64 phi1) #s(literal 3 binary64))
(exp.f64 (*.f64 (log.f64 (cos.f64 phi1)) #s(literal 3 binary64)))
(sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 phi1))
(cos.f64 phi1)
phi1
#s(literal 3 binary64)
(/.f64 (+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) #s(literal 3 binary64)) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 3 binary64))) (fma.f64 (+.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) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (-.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) (-.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) (.f64 (+.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 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))))
(fma.f64 (cos.f64 phi1) (cos.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))
(+.f64 (+.f64 #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 2 binary64)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))
(*.f64 (cos.f64 phi1) (cos.f64 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)))))))
(+.f64 #s(literal 1/2 binary64) (.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) (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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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)
#s(literal 2 binary64)
(/.f64 (-.f64 (pow.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) #s(literal 3 binary64))) (fma.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (fma.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) (.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))))
(-.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
(*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))
(.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
(pow.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64))
(exp.f64 (.f64 (log.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) #s(literal 2 binary64)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi2)) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) phi2))) #s(literal 2 binary64))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (-.f64 lambda1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
(/.f64 (neg.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64))) (neg.f64 (+.f64 (+.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 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))))
(/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)) (+.f64 (+.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 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))))
(*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)))
(.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
(.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (pow.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)))
(pow.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64))
(exp.f64 (.f64 (log.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) #s(literal 3 binary64)))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(approx (+ (/ (atan2 ( (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) lambda1) 1) #s(literal 1 binary64)) lambda1))
(.f64 #s(approx (+ (/ (atan2 ( (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) lambda1) 1) #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(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 (/ (- (+ 1/2 ( 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (/ (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 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)))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 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)))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 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)))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
(atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 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)))) (+.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)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(literal 2 binary64) (.f64 (cos.f64 (/.f64 (+.f64 phi1 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
(/.f64 (+.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/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (-.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1))))) (.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
(atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1))
(+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))
(sin.f64 (+.f64 (neg.f64 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (neg.f64 lambda2)))
(cos.f64 (neg.f64 lambda2))
(cos.f64 lambda2)
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 #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 (- (cos phi1) ( (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (+.f64 (cos.f64 phi1) (.f64 (.f64 lambda1 (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 #s(approx (- (+ 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 (- (cos phi1) ( (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (+.f64 (cos.f64 phi1) (.f64 (.f64 lambda1 (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 #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 (- (cos phi1) ( (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (+.f64 (cos.f64 phi1) (.f64 (.f64 lambda1 (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))))) (.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 #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 (- (cos phi1) ( (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (+.f64 (cos.f64 phi1) (.f64 (.f64 lambda1 (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 #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 (- (cos phi1) ( (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (+.f64 (cos.f64 phi1) (.f64 (.f64 lambda1 (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))
(atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 #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 (- (cos phi1) ( (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (+.f64 (cos.f64 phi1) (.f64 (.f64 lambda1 (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))))))
(/.f64 (neg.f64 #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))))) (neg.f64 #s(approx (- (cos phi1) ( (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (+.f64 (cos.f64 phi1) (.f64 (.f64 lambda1 (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))))))
(/.f64 #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 (- (cos phi1) ( (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (+.f64 (cos.f64 phi1) (.f64 (.f64 lambda1 (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 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))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.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) (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))
(*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
(pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(exp.f64 (.f64 (log.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 (cos.f64 (+.f64 phi2 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
#s(approx (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (+.f64 (cos.f64 phi1) (.f64 (.f64 lambda1 (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))))
(/.f64 (-.f64 (pow.f64 (+.f64 (cos.f64 phi1) (.f64 (.f64 lambda1 (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (+.f64 (cos.f64 phi1) (.f64 (.f64 lambda1 (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (.f64 lambda1 (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2)))) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 lambda2)) (.f64 (+.f64 (cos.f64 phi1) (.f64 (.f64 lambda1 (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))))))
(-.f64 (+.f64 (cos.f64 phi1) (.f64 (.f64 lambda1 (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))
(/.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 lambda1 (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (-.f64 (.f64 (.f64 (.f64 lambda1 (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2))) (.f64 (.f64 lambda1 (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2)))) (.f64 (cos.f64 phi1) (.f64 (.f64 lambda1 (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2)))))))
(+.f64 (cos.f64 phi1) (.f64 (.f64 lambda1 (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2))))
(.f64 (.f64 lambda1 (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2)))
(*.f64 lambda1 (cos.f64 phi2))
(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)
(*.f64 (cos.f64 phi2) (cos.f64 lambda2))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 lambda2)) (cos.f64 (-.f64 phi2 lambda2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (neg.f64 lambda2))) (cos.f64 (-.f64 phi2 (neg.f64 lambda2)))) #s(literal 2 binary64))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))) (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 lambda1)
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))
#s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (*.f64 lambda1 (cos.f64 lambda2))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (neg.f64 (sin.f64 lambda2))))))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))))
#s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))
#s(approx (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (fma.f64 lambda1 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(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 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (fma.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda2) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 3 binary64))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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)))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(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 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (fma.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (sin.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (fma.f64 (cos.f64 lambda2) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)))) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 2 binary64)))) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 3 binary64))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda2) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 2 binary64)))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda2) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 3 binary64))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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)))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(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 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 2 binary64)))) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 2 binary64))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (fma.f64 lambda1 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))
#s(approx (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)))) (.f64 lambda1 (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))
#s(approx (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)))) (.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)))) (.f64 lambda1 (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)))) (.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64)))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (fma.f64 #s(literal -2 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)))) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))))) (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)))) (.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))))))) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 lambda2)) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (neg.f64 (sin.f64 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2))) (neg.f64 (sin.f64 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (neg.f64 (sin.f64 lambda2)))))) (neg.f64 (sin.f64 lambda2))))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))))))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))
#s(approx (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 lambda1 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda2) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (sin.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (fma.f64 (cos.f64 lambda2) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)))) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda2) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda2) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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)))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 3 binary64)))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2)))))) (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 3 binary64))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda2) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))))))) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 3 binary64))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 (sin.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (fma.f64 (cos.f64 lambda2) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)))) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda2) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (neg.f64 (sin.f64 lambda2))))))) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 3 binary64))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) lambda1) 1) (/.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 (+ (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) lambda1) 1) (/.f64 (+.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))
#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)))))) (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 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))) (/ (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (+.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 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)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos 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 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)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (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)))) (fma.f64 lambda1 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (neg.f64 (sin.f64 lambda2)) (-.f64 (+.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 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 #s(literal 1 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)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (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)))) (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 lambda2) (-.f64 (+.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 phi2) (cos.f64 lambda2)) #s(literal 2 binary64))))) (pow.f64 (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (neg.f64 (sin.f64 lambda2)) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (neg.f64 (sin.f64 lambda2)) (-.f64 (+.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 phi2) (cos.f64 lambda2)) #s(literal 2 binary64))))) (pow.f64 (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) #s(literal 2 binary64)))))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (neg.f64 (sin.f64 lambda2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 #s(literal 1 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)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (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)))) (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) (.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (fma.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (neg.f64 (sin.f64 lambda2)) (-.f64 (+.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 phi2) (cos.f64 lambda2)) #s(literal 2 binary64))))) (pow.f64 (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 lambda2) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (neg.f64 (sin.f64 lambda2)) (-.f64 (+.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 phi2) (cos.f64 lambda2)) #s(literal 2 binary64))))) (pow.f64 (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) #s(literal 2 binary64)))))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (neg.f64 (sin.f64 lambda2)) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 lambda2) (-.f64 (+.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 phi2) (cos.f64 lambda2)) #s(literal 2 binary64))))) (pow.f64 (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (neg.f64 (sin.f64 lambda2)) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (neg.f64 (sin.f64 lambda2)) (-.f64 (+.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 phi2) (cos.f64 lambda2)) #s(literal 2 binary64))))) (pow.f64 (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) #s(literal 2 binary64)))))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 lambda2) (-.f64 (+.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 phi2) (cos.f64 lambda2)) #s(literal 2 binary64))))) (pow.f64 (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (neg.f64 (sin.f64 lambda2)) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (neg.f64 (sin.f64 lambda2)) (-.f64 (+.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 phi2) (cos.f64 lambda2)) #s(literal 2 binary64))))) (pow.f64 (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) #s(literal 2 binary64)))))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (neg.f64 (sin.f64 lambda2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 #s(literal 1 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))) (+.f64 (cos.f64 phi1) (cos.f64 lambda2)))
#s(approx (+ (cos phi1) (cos (- lambda1 lambda2))) (+.f64 (cos.f64 phi1) (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (neg.f64 (sin.f64 lambda2)))))))
#s(approx (+ (cos phi1) (cos (- lambda1 lambda2))) (+.f64 (cos.f64 phi1) (+.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 phi1) (cos (- lambda1 lambda2))) (+.f64 (cos.f64 phi1) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (neg.f64 (sin.f64 lambda2)))))) (neg.f64 (sin.f64 lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 lambda2)) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))))))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (-.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 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 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (.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 (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))))))) (pow.f64 (*.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 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))))))) (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64))))
#s(approx (- 1 (pow (* (cos phi2) (cos (- lambda1 lambda2))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64))))
#s(approx (- 1 (pow (* (cos phi2) (cos (- lambda1 lambda2))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.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 (- 1 (pow (* (cos phi2) (cos (- lambda1 lambda2))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)))))))) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) #s(literal 2 binary64))))
#s(approx (- 1 (pow (* (cos phi2) (cos (- lambda1 lambda2))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (neg.f64 (sin.f64 lambda2)))))))) (pow.f64 (.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 (+.f64 (cos.f64 phi1) (.f64 lambda1 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))))
#s(approx (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (+.f64 (cos.f64 phi1) (.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))))
#s(approx (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (+.f64 (cos.f64 phi1) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))))) (.f64 (cos.f64 phi2) (cos.f64 lambda2))))
#s(approx (- (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (cos phi2) (cos lambda2))) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (- (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (cos phi2) (cos lambda2))) (-.f64 (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (cos.f64 phi1))
#s(approx (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (*.f64 (cos.f64 phi2) (sin.f64 lambda2))))))
#s(approx (* (* lambda1 (cos phi2)) (neg (sin lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (*.f64 (cos.f64 phi2) (sin.f64 lambda2)))))
#s(approx (* lambda1 (cos phi2)) (*.f64 lambda1 (cos.f64 phi2)))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (* (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) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64)))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.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 (+ (/ (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 #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 (+ 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)))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (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 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 (/ (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos 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 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))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (-.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 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (* (cos phi2) (cos (- lambda1 lambda2))) 2)) (-.f64 #s(literal 1 binary64) (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 (- (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (cos phi2) (cos lambda2))) (.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (/.f64 (cos.f64 phi1) lambda1)) (/.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) lambda1))))
#s(approx (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (/.f64 (cos.f64 phi1) lambda1))))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))))) (atan2.f64 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))
#s(approx (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))
#s(approx (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (+ (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) lambda1) 1) (+.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(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)))))) (.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 (+.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 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (atan2.f64 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (/.f64 (-.f64 (+.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 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))
#s(approx (/ (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos 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 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (+ (cos phi1) (cos (- lambda1 lambda2))) (+.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (-.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 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (* (cos phi2) (cos (- lambda1 lambda2))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))))
#s(approx (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (- (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (cos phi2) (cos lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) lambda1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))))
#s(approx (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 phi1) lambda1) (*.f64 (cos.f64 phi2) (sin.f64 lambda2))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1)))))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (cos.f64 lambda1)))))))))
#s(approx (- lambda1 lambda2) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx lambda2 lambda2)
#s(approx (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))
#s(approx (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (fma.f64 lambda2 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(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 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
#s(approx (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (fma.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(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 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
#s(approx (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (fma.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(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 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
#s(approx (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))
#s(approx (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
#s(approx (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
#s(approx (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
#s(approx (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64))))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 lambda2 (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64))))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 lambda2 (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (fma.f64 #s(literal 2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 lambda1))))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))
#s(approx (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 lambda2 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
#s(approx (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
#s(approx (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 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 (/ (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos 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 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)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (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)))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (+.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 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 #s(literal 1 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)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (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)))) (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (+.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 lambda1) (cos.f64 phi2)) #s(literal 2 binary64))))) (pow.f64 (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (-.f64 (+.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 lambda1) (cos.f64 phi2)) #s(literal 2 binary64))))) (pow.f64 (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (+.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 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 #s(literal 1 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)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (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)))) (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (+.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 lambda1) (cos.f64 phi2)) #s(literal 2 binary64))))) (pow.f64 (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (-.f64 (+.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 lambda1) (cos.f64 phi2)) #s(literal 2 binary64))))) (pow.f64 (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) #s(literal 2 binary64)))))))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (fma.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (+.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 lambda1) (cos.f64 phi2)) #s(literal 2 binary64))))) (pow.f64 (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (+.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 lambda1) (cos.f64 phi2)) #s(literal 2 binary64))))) (pow.f64 (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (+.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 lambda1) (cos.f64 phi2)) #s(literal 2 binary64))))) (pow.f64 (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (-.f64 (+.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 lambda1) (cos.f64 phi2)) #s(literal 2 binary64))))) (pow.f64 (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (+.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 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 #s(literal 1 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))) (+.f64 (cos.f64 lambda1) (cos.f64 phi1)))
#s(approx (+ (cos phi1) (cos (- lambda1 lambda2))) (+.f64 (cos.f64 lambda1) (+.f64 (cos.f64 phi1) (*.f64 lambda2 (sin.f64 lambda1)))))
#s(approx (+ (cos phi1) (cos (- lambda1 lambda2))) (+.f64 (cos.f64 lambda1) (+.f64 (cos.f64 phi1) (.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 phi1) (cos (- lambda1 lambda2))) (+.f64 (cos.f64 lambda1) (+.f64 (cos.f64 phi1) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 lambda1))))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (cos.f64 phi2)))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (+.f64 (cos.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 lambda2 lambda2) (cos.f64 phi2))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (+.f64 (cos.f64 phi2) (.f64 (.f64 lambda2 lambda2) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 #s(literal 1/24 binary64) (.f64 (*.f64 lambda2 lambda2) (cos.f64 phi2))))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (+.f64 (cos.f64 phi2) (.f64 (.f64 lambda2 lambda2) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 (.f64 lambda2 lambda2) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 lambda2 lambda2) (cos.f64 phi2)) (*.f64 #s(literal 1/24 binary64) (cos.f64 phi2)))))))))
#s(approx (cos lambda2) (+.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 (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (-.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 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 #s(literal 1/2 binary64) (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)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))))))) (pow.f64 (*.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 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))))))) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64))))
#s(approx (- 1 (pow (* (cos phi2) (cos (- lambda1 lambda2))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64))))
#s(approx (- 1 (pow (* (cos phi2) (cos (- lambda1 lambda2))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.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 (- 1 (pow (* (cos phi2) (cos (- lambda1 lambda2))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))))) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) #s(literal 2 binary64))))
#s(approx (- 1 (pow (* (cos phi2) (cos (- lambda1 lambda2))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))))) (pow.f64 (*.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 (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (+.f64 (cos.f64 phi1) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (+.f64 (cos.f64 phi1) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (- (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (cos phi2) (cos lambda2))) (-.f64 (cos.f64 phi1) (cos.f64 phi2)))
#s(approx (- (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (cos phi2) (cos lambda2))) (-.f64 (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (*.f64 lambda2 (cos.f64 phi2))))) (cos.f64 phi2)))
#s(approx (- (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (cos phi2) (cos lambda2))) (-.f64 (+.f64 (cos.f64 phi1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (cos.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (cos.f64 phi2)))))) (cos.f64 phi2)))
#s(approx (- (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (cos phi2) (cos lambda2))) (-.f64 (+.f64 (cos.f64 phi1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (cos.f64 phi2)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 lambda2 (cos.f64 phi2)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))))) (cos.f64 phi2)))
#s(approx (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (*.f64 lambda2 (cos.f64 phi2))))))
#s(approx (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (+.f64 (cos.f64 phi1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (cos.f64 phi2)) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (.f64 lambda2 lambda2) (cos.f64 phi2))))))))
#s(approx (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (+.f64 (cos.f64 phi1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (cos.f64 phi2)) (.f64 (.f64 lambda2 lambda2) (fma.f64 #s(literal -1/120 binary64) (.f64 lambda1 (.f64 (.f64 lambda2 lambda2) (cos.f64 phi2))) (.f64 #s(literal 1/6 binary64) (*.f64 lambda1 (cos.f64 phi2)))))))))
#s(approx (* (* lambda1 (cos phi2)) (neg (sin lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (*.f64 lambda2 (cos.f64 phi2)))))
#s(approx (* (* lambda1 (cos phi2)) (neg (sin lambda2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (cos.f64 phi2)) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (.f64 lambda2 lambda2) (cos.f64 phi2)))))))
#s(approx (* (* lambda1 (cos phi2)) (neg (sin lambda2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (cos.f64 phi2)) (.f64 (.f64 lambda2 lambda2) (fma.f64 #s(literal -1/120 binary64) (.f64 lambda1 (.f64 (.f64 lambda2 lambda2) (cos.f64 phi2))) (.f64 #s(literal 1/6 binary64) (*.f64 lambda1 (cos.f64 phi2))))))))
#s(approx (* (* lambda1 (cos phi2)) (neg (sin lambda2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (cos.f64 phi2)) (.f64 (.f64 lambda2 lambda2) (fma.f64 #s(literal 1/6 binary64) (.f64 lambda1 (cos.f64 phi2)) (.f64 (.f64 lambda2 lambda2) (fma.f64 #s(literal -1/120 binary64) (.f64 lambda1 (cos.f64 phi2)) (.f64 #s(literal 1/5040 binary64) (.f64 lambda1 (.f64 (.f64 lambda2 lambda2) (cos.f64 phi2)))))))))))
#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) (.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 phi2) (cos lambda2)) (cos.f64 phi2))
#s(approx (* (cos phi2) (cos lambda2)) (+.f64 (cos.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 lambda2 lambda2) (cos.f64 phi2)))))
#s(approx (* (cos phi2) (cos lambda2)) (+.f64 (cos.f64 phi2) (.f64 (.f64 lambda2 lambda2) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 #s(literal 1/24 binary64) (.f64 (*.f64 lambda2 lambda2) (cos.f64 phi2)))))))
#s(approx (* (cos phi2) (cos lambda2)) (+.f64 (cos.f64 phi2) (.f64 (.f64 lambda2 lambda2) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 (.f64 lambda2 lambda2) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 lambda2 lambda2) (cos.f64 phi2)) (*.f64 #s(literal 1/24 binary64) (cos.f64 phi2))))))))
#s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (cos lambda2) (cos.f64 lambda2))
#s(approx (neg (sin lambda2)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda2)))
#s(approx (sin lambda2) (sin.f64 lambda2))
#s(approx (* (cos phi2) (cos lambda2)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))))
#s(approx (* (cos phi2) (sin (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))
#s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 3 binary64)))
#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (* (+ (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) lambda1) 1) lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (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)))))) lambda1))))
#s(approx (+ (/ (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) lambda1) 1) (+.f64 #s(literal 1 binary64) (/.f64 (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)))))) 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)))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) 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 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (/.f64 (-.f64 (+.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 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (/ (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos 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 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (+ (cos phi1) (cos (- lambda1 lambda2))) (+.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (-.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 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (* (cos phi2) (cos (- lambda1 lambda2))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) 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 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 3/2 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))) (/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 7/8 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (fma.f64 #s(literal 1/3 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -2 binary64)) (+.f64 (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 3/2 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 3/2 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))) (/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 7/8 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (fma.f64 #s(literal 1/3 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -2 binary64)) (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 3/2 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 3/2 binary64) (/.f64 #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 #s(literal 1/3 binary64) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (+.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.f64 #s(literal 61/240 binary64) (/.f64 #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 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64)))))))))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 7/8 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (fma.f64 #s(literal 1/3 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -2 binary64)) (+.f64 (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 3/2 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 3/2 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))) (/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/.f64 #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))))))
#s(approx (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 3/2 binary64) (/.f64 #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 #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)))))))
#s(approx (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 7/8 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (fma.f64 #s(literal 1/3 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -2 binary64)) (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 3/2 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 3/2 binary64) (/.f64 #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 #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)))))))
#s(approx (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 7/8 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (fma.f64 #s(literal 1/3 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -2 binary64)) (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 3/2 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 3/2 binary64) (/.f64 #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 #s(literal 1/3 binary64) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 61/240 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 7/8 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (fma.f64 #s(literal 1/3 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -2 binary64)) (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 3/2 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 3/2 binary64) (/.f64 #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 #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)))))))
#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) (+.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 (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (-.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (-.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal -1 binary64) (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 phi1))))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (+.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 (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (+.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 (* 1/2 (cos (* 2 phi1))) #s(literal 1/2 binary64))
#s(approx (* 1/2 (cos (* 2 phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 phi1))))
#s(approx (* 1/2 (cos (* 2 phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 phi1 phi1)) #s(literal 1 binary64)))))
#s(approx (* 1/2 (cos (* 2 phi1))) (+.f64 #s(literal 1/2 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 (* 2 phi1)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) (.f64 phi1 phi1))))
#s(approx (cos (* 2 phi1)) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 2/3 binary64) (.f64 phi1 phi1)) #s(literal 2 binary64)))))
#s(approx (cos (* 2 phi1)) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 2/3 binary64) (.f64 #s(literal -4/45 binary64) (.f64 phi1 phi1)))) #s(literal 2 binary64)))))
#s(approx (* 2 phi1) (*.f64 #s(literal 2 binary64) phi1))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi1 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal -1/24 binary64) (.f64 (.f64 phi1 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/720 binary64) (.f64 (.f64 phi1 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi1 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 phi1 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi1 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (+.f64 (/.f64 (.f64 (.f64 phi1 phi1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (+.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (+.f64 (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 #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)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (/.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/3 binary64) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))) (fma.f64 #s(literal -1/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))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (/.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/3 binary64) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (-.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))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1/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 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))) (.f64 #s(literal 1/3 binary64) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))) (fma.f64 #s(literal -1/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))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (/.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (cos phi1) (cos (- lambda1 lambda2))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (cos phi1) (cos (- lambda1 lambda2))) (+.f64 #s(literal 1 binary64) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)))))
#s(approx (+ (cos phi1) (cos (- lambda1 lambda2))) (+.f64 #s(literal 1 binary64) (+.f64 (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))) (+.f64 #s(literal 1 binary64) (+.f64 (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) (cos (- lambda1 lambda2)))) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)))) #s(literal 1/2 binary64))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) (.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)))) #s(literal 1/2 binary64))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 phi1))) (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 phi1 phi1)) #s(literal 1 binary64)))) (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal -2/45 binary64) (.f64 phi1 phi1)))) #s(literal 1 binary64)))) (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)))) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (cos phi2) (cos lambda2))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (- (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (cos phi2) (cos lambda2))) (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (- (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (cos phi2) (cos lambda2))) (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (- (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (cos phi2) (cos lambda2))) (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)))) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (*.f64 (cos.f64 phi2) (sin.f64 lambda2))))))
#s(approx (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)))))
#s(approx (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64))))))
#s(approx (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)))) #s(literal 1/2 binary64))))))
#s(approx (pow (cos phi1) 3) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))) (+.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) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)) #s(literal 1/2 binary64)))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 (.f64 phi2 phi2) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2)))) #s(literal 1/2 binary64)))))
#s(approx phi2 phi2)
#s(approx (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (/.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (fma.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal -3/2 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (fma.f64 (.f64 phi2 phi2) (-.f64 (fma.f64 #s(literal -3/2 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -3/2 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (fma.f64 (.f64 phi2 phi2) (-.f64 (fma.f64 #s(literal -3/2 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -3/2 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 (.f64 #s(literal 7/8 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -3/2 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (/.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2/45 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2/45 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -3/2 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 phi2 phi2) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (pow (cos phi1) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 (.f64 phi2 phi2) (-.f64 (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2/45 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (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) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (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) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (fma.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (fma.f64 (.f64 phi2 phi2) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (fma.f64 (.f64 phi2 phi2) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (.f64 (.f64 phi2 phi2) (-.f64 (fma.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal -2/45 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (fma.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (fma.f64 (.f64 phi2 phi2) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (fma.f64 (.f64 phi2 phi2) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (.f64 (.f64 phi2 phi2) (-.f64 (fma.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal -2/45 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (fma.f64 #s(literal -1 binary64) (pow.f64 (*.f64 phi2 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (fma.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/3 binary64) (pow.f64 (*.f64 phi2 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (fma.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -2/45 binary64) (pow.f64 (.f64 phi2 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/24 binary64) (.f64 (*.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(literal 1/24 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi2 phi2) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 phi2 phi2) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi2 phi2) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal -3/2 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 (.f64 phi2 phi2) (-.f64 (fma.f64 #s(literal -3/2 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -3/2 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (/.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (fma.f64 (.f64 phi2 phi2) (-.f64 (fma.f64 #s(literal -3/2 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -3/2 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 (.f64 #s(literal 7/8 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -3/2 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (/.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (/.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -2/45 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -3/2 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (/.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (fma.f64 #s(literal -3/2 binary64) (.f64 (.f64 phi2 phi2) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (fma.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (.f64 #s(literal 7/8 binary64) (.f64 (.f64 phi2 phi2) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (fma.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -61/240 binary64) (.f64 (.f64 phi2 phi2) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 #s(literal 7/8 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))
#s(approx (/ (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos 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 (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)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (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)))) (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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 #s(literal 1 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)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (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)))) (fma.f64 (.f64 phi2 phi2) (-.f64 (fma.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal -1/3 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (-.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (-.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 #s(literal 1 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)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (-.f64 (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)))) (fma.f64 (.f64 phi2 phi2) (-.f64 (fma.f64 (.f64 phi2 phi2) (-.f64 (fma.f64 #s(literal -1/3 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (-.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal 2/45 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (-.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (-.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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/720 binary64) (/.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/3 binary64) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (-.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (-.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))))) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (-.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 #s(literal 1 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 phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/24 binary64) (.f64 (*.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(literal 1/24 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda2) (cos.f64 phi1)))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda2) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 phi2 phi2) (cos.f64 lambda2))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda2) (+.f64 (cos.f64 phi1) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/24 binary64) (.f64 (*.f64 phi2 phi2) (cos.f64 lambda2))))))))
#s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 lambda2) (+.f64 (cos.f64 phi1) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 lambda2)) (*.f64 #s(literal 1/24 binary64) (cos.f64 lambda2)))))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal -1/3 binary64) (pow.f64 (.f64 phi2 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal 2/45 binary64) (pow.f64 (.f64 phi2 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))) (*.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (- 1 (pow (* (cos phi2) (cos (- lambda1 lambda2))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (- 1 (pow (* (cos phi2) (cos (- lambda1 lambda2))) 2)) (-.f64 (+.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 (- 1 (pow (* (cos phi2) (cos (- lambda1 lambda2))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal -1/3 binary64) (pow.f64 (.f64 phi2 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (- 1 (pow (* (cos phi2) (cos (- lambda1 lambda2))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal 2/45 binary64) (pow.f64 (.f64 phi2 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))) (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (-.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 (+.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 (*.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (+.f64 (cos.f64 phi1) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal -1/24 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (+.f64 (cos.f64 phi1) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal 1/720 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/24 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (- (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (cos phi2) (cos lambda2))) (-.f64 (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 lambda2)))) (cos.f64 lambda2)))
#s(approx (- (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (cos phi2) (cos lambda2))) (-.f64 (+.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 lambda2)) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (sin.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))) (cos.f64 lambda2)))
#s(approx (- (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (cos phi2) (cos lambda2))) (-.f64 (+.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 lambda2)) (.f64 (.f64 phi2 phi2) (-.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (sin.f64 lambda2)) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal -1/24 binary64) (.f64 lambda1 (sin.f64 lambda2))) (.f64 #s(literal 1/24 binary64) (cos.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))) (cos.f64 lambda2)))
#s(approx (- (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (cos phi2) (cos lambda2))) (-.f64 (+.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 lambda2)) (.f64 (.f64 phi2 phi2) (-.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (sin.f64 lambda2)) (.f64 (.f64 phi2 phi2) (-.f64 (fma.f64 #s(literal -1/24 binary64) (.f64 lambda1 (sin.f64 lambda2)) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal 1/720 binary64) (.f64 lambda1 (sin.f64 lambda2))) (.f64 #s(literal -1/720 binary64) (cos.f64 lambda2))))) (.f64 #s(literal 1/24 binary64) (cos.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))) (cos.f64 lambda2)))
#s(approx (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 lambda2)))))
#s(approx (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (+.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (*.f64 phi2 phi2) (sin.f64 lambda2)))))))
#s(approx (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (+.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 lambda2)) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/24 binary64) (.f64 lambda1 (.f64 (.f64 phi2 phi2) (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (sin.f64 lambda2))))))))
#s(approx (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (+.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 lambda2)) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (sin.f64 lambda2)) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/24 binary64) (.f64 lambda1 (sin.f64 lambda2)) (.f64 #s(literal 1/720 binary64) (.f64 lambda1 (.f64 (*.f64 phi2 phi2) (sin.f64 lambda2)))))))))))
#s(approx (* (* lambda1 (cos phi2)) (neg (sin lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 lambda2))))
#s(approx (* (* lambda1 (cos phi2)) (neg (sin lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (*.f64 phi2 phi2) (sin.f64 lambda2))))))
#s(approx (* (* lambda1 (cos phi2)) (neg (sin lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 lambda2)) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/24 binary64) (.f64 lambda1 (.f64 (.f64 phi2 phi2) (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (sin.f64 lambda2)))))))
#s(approx (* (* lambda1 (cos phi2)) (neg (sin lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 lambda2)) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (sin.f64 lambda2)) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/24 binary64) (.f64 lambda1 (sin.f64 lambda2)) (.f64 #s(literal 1/720 binary64) (.f64 lambda1 (.f64 (*.f64 phi2 phi2) (sin.f64 lambda2))))))))))
#s(approx (* lambda1 (cos phi2)) (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (*.f64 phi2 phi2)))))
#s(approx (* lambda1 (cos phi2)) (+.f64 lambda1 (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/24 binary64) (.f64 lambda1 (*.f64 phi2 phi2)))))))
#s(approx (* lambda1 (cos phi2)) (+.f64 lambda1 (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/720 binary64) (.f64 lambda1 (.f64 phi2 phi2)) (*.f64 #s(literal 1/24 binary64) lambda1)))))))
#s(approx (* (cos phi2) (cos lambda2)) (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 phi2 phi2) (cos.f64 lambda2)))))
#s(approx (* (cos phi2) (cos lambda2)) (+.f64 (cos.f64 lambda2) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/24 binary64) (.f64 (*.f64 phi2 phi2) (cos.f64 lambda2)))))))
#s(approx (* (cos phi2) (cos lambda2)) (+.f64 (cos.f64 lambda2) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi2 phi2) (cos.f64 lambda2)) (*.f64 #s(literal 1/24 binary64) (cos.f64 lambda2))))))))

eval127.0ms (1.2%)

Memory: -21.3MiB live, 167.0MiB allocated; 20ms collecting garbage
Compiler: Compiled 33 357 to 5 329 computations (84% saved)

prune124.0ms (1.2%)

Memory

24.8MiB live, 167.9MiB allocated; 14ms collecting garbage

Pruning

78 alts after pruning (75 fresh and 3 done)

	Pruned	Kept	Total
New	650	29	679
Fresh	19	46	65
Picked	4	1	5
Done	0	2	2
Total	673	78	751

Accuracy

99.0%

Counts

751 → 78

Alt Table

Click to see full alt table

Status	Accuracy	Program
	56.3%	(/.f64 (fma.f64 (.f64 lambda1 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 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (cos.f64 phi1)))))))
	29.3%	(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))) (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.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 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))))))
	70.7%	(-.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))))))
	75.3%	(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (-.f64 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)))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
	30.1%	(+.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)))))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
	98.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (+.f64 (+.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 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)))) (-.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)))) (.f64 (+.f64 (+.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 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)))) (-.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.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 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)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 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))))))
	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 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(literal 2 binary64))) #s(approx (- (cos phi1) ( (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (+.f64 (cos.f64 phi1) (.f64 (.f64 lambda1 (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))
	91.8%	(+.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 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 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)))))))
	70.0%	(+.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))) #s(approx (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (cos phi2) (cos lambda2))) (-.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
	87.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)))) #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 (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (+.f64 (cos.f64 phi1) (.f64 (.f64 lambda1 (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))
	71.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 #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 (- (cos phi1) ( (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (+.f64 (cos.f64 phi1) (.f64 (.f64 lambda1 (cos.f64 phi2)) (cos.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))
	70.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 #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 (- (cos phi1) ( (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 #s(approx (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))
	58.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 #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 (- (cos phi1) ( (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (cos phi2) (cos lambda2))) (-.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
	71.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 #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 (- (cos phi1) ( (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (cos phi2) (cos lambda2))) (.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (/.f64 (cos.f64 phi1) lambda1)) (/.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) lambda1))))))))
	72.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 #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 (- (cos phi1) ( (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (+ (cos phi1) (* (* lambda1 (cos phi2)) (neg (sin lambda2)))) (* (cos phi2) (cos lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) lambda1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))))))))
	91.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 phi1 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)))))))
	98.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)) (+.f64 (+.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 2 binary64)) #s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))) (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)) (+.f64 (+.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 2 binary64)) #s(approx ( (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))))))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))))))
	98.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)) (+.f64 (+.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 2 binary64)) #s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))) (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)) (+.f64 (+.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 2 binary64)) #s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))))))
	98.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (+.f64 (+.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 2 binary64)) #s(approx (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))) (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)) (+.f64 (+.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 2 binary64)) #s(approx ( (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (neg.f64 (sin.f64 lambda2))))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))))))))))
	98.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (-.f64 #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)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))) (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (-.f64 #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)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))))))
	81.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) #s(approx (+ (+ 1/2 ( 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (/.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(literal 3 binary64)) #s(approx (+ (+ 1/2 ( 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))
	98.0%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) 1)) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 lambda2)))))))))
	98.0%	(+.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)))))))
	66.4%	(+.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) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	72.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 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)))) (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))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 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 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))
	70.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 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)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (+.f64 phi1 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 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 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)))))))))
	84.6%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 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)))) (/.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 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)))))))
	66.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 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)))) (+.f64 (cos.f64 phi1) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	77.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 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)))) (+.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))))
	66.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 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)))) (+.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))))
	68.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 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)))) (+.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))))
	71.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 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)))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (/.f64 (+.f64 phi1 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))))
	67.3%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 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(approx (+ (cos phi1) (cos (- lambda1 lambda2))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
	77.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 ( 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (/.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))))
	78.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (/ (pow (cos phi1) 3) (+ (+ 1/2 ( 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))))) (/ (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 3) (+ (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (- (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2) (* (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2))))))) (/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
	78.5%	(+.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)))))
	78.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)))))
	75.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 #s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 lambda2)))) (cos.f64 phi2) (cos.f64 phi1)))))
	97.9%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))))))
	79.9%	(+.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 lambda1 lambda2)) (cos.f64 phi2) #s(literal 1 binary64)) (.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))))))
	78.2%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))
	77.7%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 (cos.f64 phi1) (cos.f64 phi2))))))
	78.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda2) (cos phi2)) (cos phi1)) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))))
	91.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 lambda1 (cos.f64 lambda2))))) (/.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))))))
	78.4%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 lambda1 (cos.f64 lambda2))))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	98.1%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 lambda1 (cos.f64 lambda2))))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
	56.8%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
	85.5%	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) #s(approx (+ (cos phi1) ( (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (cos.f64 phi1)))))
	45.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi1) #s(literal 1 binary64))) (.f64 (.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 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))))
	64.8%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))))
	62.7%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi1 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))))))
	60.3%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
✓	65.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.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.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 #s(literal 1/2 binary64) (*.f64 phi2 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
	74.6%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
	63.7%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64))))))))
	60.6%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))))))
	69.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 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 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))))
	58.9%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) #s(approx (sin (- lambda1 lambda2)) (-.f64 (sin.f64 lambda1) (.f64 #s(literal 1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.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.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #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) (.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.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) #s(approx (sin (- lambda1 lambda2)) (+.f64 (neg.f64 (sin.f64 lambda2)) (.f64 lambda1 (cos.f64 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))))))
	65.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #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)) (.f64 #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))))
	57.6%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (+.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))))))
	54.0%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))))
	63.0%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) #s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))))
	55.9%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)))) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.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)) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2))))) #s(literal 2 binary64))) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (*.f64 phi2 phi2)))))))))
	75.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)))) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))))))
	64.8%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)) #s(literal 1/2 binary64))))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)) #s(literal 1/2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))))
	74.1%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)) #s(literal 1/2 binary64))))) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (/ (- (+ 1/2 ( 1/2 (cos (* 2 phi1)))) (pow (* (cos (- lambda1 lambda2)) (cos phi2)) 2)) (- (cos phi1) (* (cos (- lambda1 lambda2)) (cos phi2)))) (+.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
	51.1%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(approx (+ ( (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64))))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 #s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))))
	43.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 (.f64 phi2 phi2) (-.f64 (/.f64 #s(literal 1 binary64) (.f64 phi2 phi2)) #s(literal 1/2 binary64))))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) #s(approx (+ (* (* phi2 phi2) -1/2) 1) (.f64 (.f64 phi2 phi2) (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi2)) #s(literal 1/2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))))
	51.9%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)))) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)))) (cos.f64 (-.f64 lambda1 lambda2))))))
	91.7%	#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)))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (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 phi1 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))))
✓	98.5%	#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))
	79.8%	#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) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi1 phi1)))))) lambda1) #s(literal 1 binary64)) lambda1))
	75.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)) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)))) (cos.f64 phi1))) lambda1) #s(literal 1 binary64)) lambda1))
✓	51.1%	#s(approx (+ lambda1 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(approx (+ (/ (atan2 ( (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) lambda1) 1) #s(literal 1 binary64)) lambda1))

Compiler

Compiled 6 176 to 3 324 computations (46.2% saved)

regimes626.0ms (6%)

Memory

-10.8MiB live, 329.8MiB allocated; 944ms collecting garbage

Counts

123 → 1

Calls

Call 1

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

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:

376.0ms	phi1
44.0ms	(cos.f64 phi2)
43.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))))))
43.0ms	phi2
42.0ms	(cos.f64 phi1)

Results

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

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes159.0ms (1.5%)

Memory

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

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

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:

29.0ms	lambda2
28.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))))))
28.0ms	(cos.f64 phi1)
27.0ms	(cos.f64 phi2)
15.0ms	phi1

Results

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

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes132.0ms (1.3%)

Memory

14.4MiB live, 161.2MiB allocated; 64ms collecting garbage

Counts

55 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

7 calls:

27.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))))))
26.0ms	(cos.f64 phi1)
22.0ms	phi1
14.0ms	lambda2
14.0ms	lambda1

Results

Accuracy	Segments	Branch
97.3%	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.5%	3	`lambda1`
98.5%	3	`lambda2`
92.9%	3	`phi1`
91.9%	2	`phi2`
92.7%	3	`(cos.f64 phi1)`
91.9%	2	`(cos.f64 phi2)`

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes29.0ms (0.3%)

Memory

-14.0MiB live, 30.3MiB allocated; 24ms collecting garbage

Counts

54 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

26.0ms

lambda2

Results

Accuracy	Segments	Branch
98.0%	3	`lambda2`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes114.0ms (1.1%)

Memory

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

Outputs

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

Calls

6 calls:

42.0ms	phi2
18.0ms	phi1
13.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
13.0ms	lambda2
12.0ms	(cos.f64 phi2)

Results

Accuracy	Segments	Branch
89.9%	2	`(cos.f64 phi1)`
89.9%	2	`phi1`
90.5%	2	`(cos.f64 phi2)`
90.5%	2	`phi2`
89.5%	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.8%	3	`lambda2`

Compiler

Compiled 23 to 36 computations (-56.5% saved)

regimes32.0ms (0.3%)

Memory

-39.9MiB live, 30.3MiB allocated; 8ms collecting garbage

Counts

51 → 2

Calls

Call 1

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

Outputs

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

Calls

2 calls:

16.0ms	(cos.f64 phi2)
13.0ms	phi2

Results

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

Compiler

Compiled 3 to 9 computations (-200% saved)

regimes27.0ms (0.3%)

Memory

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

Counts

50 → 2

Calls

Call 1

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

Calls

2 calls:

13.0ms	phi2
12.0ms	(cos.f64 phi2)

Results

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

Compiler

Compiled 3 to 9 computations (-200% saved)

regimes66.0ms (0.6%)

Memory

-30.5MiB live, 59.2MiB allocated; 9ms collecting garbage

Counts

42 → 2

Calls

Call 1

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

Outputs

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

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

Calls

4 calls:

30.0ms	phi1
13.0ms	(cos.f64 phi2)
11.0ms	phi2
10.0ms	(cos.f64 phi1)

Results

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

Compiler

Compiled 6 to 18 computations (-200% saved)

regimes19.0ms (0.2%)

Memory

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

Outputs

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

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

Calls

2 calls:

9.0ms	phi1
8.0ms	(cos.f64 phi1)

Results

Accuracy	Segments	Branch
89.7%	2	`(cos.f64 phi1)`
89.7%	2	`phi1`

Compiler

Compiled 3 to 9 computations (-200% saved)

regimes43.0ms (0.4%)

Memory

4.2MiB live, 49.8MiB allocated; 2ms collecting garbage

Counts

30 → 2

Calls

Call 1

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

Outputs

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

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

Calls

5 calls:

9.0ms	(cos.f64 phi2)
8.0ms	phi2
8.0ms	phi1
8.0ms	lambda2
7.0ms	(cos.f64 phi1)

Results

Accuracy	Segments	Branch
87.7%	3	`lambda2`
88.1%	2	`phi2`
88.1%	2	`(cos.f64 phi2)`
79.3%	2	`(cos.f64 phi1)`
79.8%	2	`phi1`

Compiler

Compiled 7 to 22 computations (-214.3% saved)

regimes60.0ms (0.6%)

Memory

-7.9MiB live, 84.0MiB allocated; 19ms collecting garbage

Counts

24 → 2

Calls

Call 1

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

Outputs

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

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

Calls

7 calls:

15.0ms	(cos.f64 phi2)
10.0ms	(cos.f64 phi1)
7.0ms	lambda1
7.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))))))
7.0ms	lambda2

Results

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

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes13.0ms (0.1%)

Memory

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

Counts

22 → 2

Calls

Call 1

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

Outputs

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

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

Calls

2 calls:

6.0ms	phi2
6.0ms	(cos.f64 phi2)

Results

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

Compiler

Compiled 3 to 9 computations (-200% saved)

regimes13.0ms (0.1%)

Memory

-29.4MiB live, 16.7MiB allocated; 2ms collecting garbage

Counts

18 → 2

Calls

Call 1

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

Outputs

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

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

Calls

2 calls:

7.0ms	phi2
5.0ms	(cos.f64 phi2)

Results

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

Compiler

Compiled 3 to 9 computations (-200% saved)

regimes12.0ms (0.1%)

Memory

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

Outputs

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

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

Calls

3 calls:

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

Results

Accuracy	Segments	Branch
76.5%	2	`(cos.f64 phi1)`
76.9%	2	`(cos.f64 phi2)`
77.0%	2	`phi2`

Compiler

Compiled 5 to 14 computations (-180% saved)

regimes31.0ms (0.3%)

Memory

8.9MiB live, 53.0MiB allocated; 5ms collecting garbage

Counts

12 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes24.0ms (0.2%)

Memory

-14.4MiB live, 38.9MiB allocated; 10ms collecting garbage

Counts

7 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes15.0ms (0.1%)

Memory

-20.0MiB live, 26.9MiB allocated; 2ms collecting garbage

Counts

4 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

3.0ms	phi1
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	lambda2
2.0ms	phi2
2.0ms	lambda1

Results

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

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes11.0ms (0.1%)

Memory

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

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

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

Outputs

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

Results

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

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes11.0ms (0.1%)

Memory

-26.8MiB live, 20.0MiB allocated; 3ms collecting garbage

Counts

2 → 1

Calls

Call 1

Inputs

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

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

Outputs

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

Calls

7 calls:

3.0ms	lambda1
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	lambda2
1.0ms	phi1
1.0ms	phi2

Results

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

Compiler

Compiled 24 to 40 computations (-66.7% saved)

regimes7.0ms (0.1%)

Memory

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

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

Inputs

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

Outputs

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

Results

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

Compiler

Compiled 24 to 40 computations (-66.7% saved)

bsearch93.0ms (0.9%)

Memory

1.6MiB live, 92.5MiB allocated; 14ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
31.0ms	3.1231394505372744e-84	1.1256007107655446e-83
58.0ms	-0.0005833880167289881	-1.0792377680444154e-13

Samples

60.0ms	85×	1	valid
19.0ms	155×	0	valid

Compiler

Compiled 698 to 681 computations (2.4% saved)

Precisions

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

ival-cos: 43.0ms (60.5% of total)

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

ival-sin: 9.0ms (12.7% of total)

adjust: 4.0ms (5.6% of total)

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

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

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

bsearch3.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	3.1231394505372744e-84	1.1256007107655446e-83
1.0ms	-0.0005833880167289881	-1.0792377680444154e-13

Compiler

Compiled 773 to 726 computations (6.1% saved)

bsearch49.0ms (0.5%)

Memory

24.0MiB live, 66.5MiB allocated; 7ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
47.0ms	0.0001767074840166194	0.40108602715969477

Samples

29.0ms	55×	1	valid
12.0ms	73×	0	valid

Compiler

Compiled 527 to 477 computations (9.5% saved)

Precisions

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

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

ival-sin: 6.0ms (18.8% of total)

adjust: 3.0ms (9.4% of total)

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

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

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

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

bsearch2.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	0.0001767074840166194	0.40108602715969477

Compiler

Compiled 431 to 397 computations (7.9% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.9956426903396854	0.9992346796696441

Compiler

Compiled 22 to 21 computations (4.5% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.99999999999999	1.0

Compiler

Compiled 23 to 21 computations (8.7% saved)

bsearch47.0ms (0.5%)

Memory

7.0MiB live, 48.5MiB allocated; 13ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
45.0ms	3.7057121715220313e-14	4.1079086406553817e-13

Samples

36.0ms	48×	1	valid
5.0ms	48×	0	valid

Compiler

Compiled 347 to 321 computations (7.5% saved)

Precisions

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

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

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

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

adjust: 2.0ms (5.3% of total)

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

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

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

bsearch38.0ms (0.4%)

Memory

-0.9MiB live, 44.4MiB allocated; 4ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
36.0ms	0.0001767074840166194	0.40108602715969477

Samples

22.0ms	40×	1	valid
9.0ms	72×	0	valid

Compiler

Compiled 551 to 469 computations (14.9% saved)

Precisions

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

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

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

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

adjust: 2.0ms (7.4% of total)

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

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

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

bsearch71.0ms (0.7%)

Memory

-34.2MiB live, 26.2MiB allocated; 24ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
68.0ms	147.57324497018044	4315.024755359767

Samples

25.0ms	39×	1	valid
8.0ms	73×	0	valid

Compiler

Compiled 583 to 490 computations (16% saved)

Precisions

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

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

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

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

adjust: 2.0ms (6.6% of total)

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

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

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

bsearch2.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	147.57324497018044	4315.024755359767

Compiler

Compiled 471 to 406 computations (13.8% saved)

bsearch2.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	147.57324497018044	4315.024755359767

Compiler

Compiled 485 to 441 computations (9.1% saved)

bsearch44.0ms (0.4%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
42.0ms	399540063717669500.0	1.3602289313213443e+20

Samples

25.0ms	41×	1	valid
11.0ms	87×	0	valid

Compiler

Compiled 543 to 477 computations (12.2% saved)

Precisions

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

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

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

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

adjust: 2.0ms (6.3% of total)

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

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

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

derivations618.0ms (5.9%)

Memory

24.6MiB live, 626.5MiB allocated; 87ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 352 to 205 computations (41.8% saved)

preprocess274.0ms (2.6%)

Memory

-2.1MiB live, 379.1MiB allocated; 73ms collecting garbage

Remove

(abs phi2)

(abs phi1)

Compiler

Compiled 4 848 to 3 701 computations (23.7% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze671.0ms (6.4%)

sample5.0s (48.3%)

preprocess46.0ms (0.4%)

series35.0ms (0.3%)

rewrite178.0ms (1.7%)

eval27.0ms (0.3%)

prune26.0ms (0.3%)

series102.0ms (1%)

rewrite191.0ms (1.8%)

eval100.0ms (1%)

prune62.0ms (0.6%)

series107.0ms (1%)

rewrite193.0ms (1.9%)

eval90.0ms (0.9%)

prune84.0ms (0.8%)

series236.0ms (2.3%)

rewrite296.0ms (2.8%)

eval127.0ms (1.2%)

prune124.0ms (1.2%)

regimes626.0ms (6%)

regimes159.0ms (1.5%)

regimes132.0ms (1.3%)

regimes29.0ms (0.3%)

regimes114.0ms (1.1%)

regimes32.0ms (0.3%)

regimes27.0ms (0.3%)

regimes66.0ms (0.6%)

regimes19.0ms (0.2%)

regimes43.0ms (0.4%)

regimes60.0ms (0.6%)

regimes13.0ms (0.1%)

regimes13.0ms (0.1%)

regimes12.0ms (0.1%)

regimes31.0ms (0.3%)

regimes24.0ms (0.2%)

regimes15.0ms (0.1%)

regimes11.0ms (0.1%)

regimes11.0ms (0.1%)

regimes7.0ms (0.1%)

bsearch93.0ms (0.9%)

bsearch3.0ms (0%)

bsearch49.0ms (0.5%)

bsearch2.0ms (0%)

bsearch1.0ms (0%)

bsearch0.0ms (0%)

bsearch47.0ms (0.5%)

bsearch38.0ms (0.4%)

bsearch71.0ms (0.7%)

bsearch2.0ms (0%)

bsearch2.0ms (0%)

bsearch44.0ms (0.4%)

derivations618.0ms (5.9%)

preprocess274.0ms (2.6%)

end0.0ms (0%)

Profiling