Metrics for Spherical law of cosines

start0.0ms (0%)

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

analyze949.0ms (7.1%)

Memory

12.4MiB live, 827.5MiB allocated; 178ms 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
0%	0%	99.8%	0.2%	0%	0%	0%	9
0%	0%	99.8%	0.2%	0%	0%	0%	10
1.6%	1.6%	98.2%	0.2%	0%	0%	0%	11
1.6%	1.6%	98.2%	0.2%	0%	0%	0%	12

Compiler

Compiled 21 to 19 computations (9.5% saved)

sample4.5s (33.7%)

Memory

111.4MiB live, 4 197.5MiB allocated; 777ms collecting garbage

Samples

3.4s	6 312×	1	valid
366.0ms	1 792×	0	valid
100.0ms	128×	2	valid
30.0ms	24×	3	valid

Precisions

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

ival-cos: 1.4s (40.4% of total)

ival-sin: 1.0s (29.4% of total)

ival-acos: 355.0ms (10.1% of total)

ival-mult!: 324.0ms (9.3% of total)

adjust: 299.0ms (8.5% of total)

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

ival-add!: 39.0ms (1.1% of total)

Bogosity

explain365.0ms (2.7%)

Memory

33.6MiB live, 325.5MiB allocated; 51ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Example	Subexpression
63	119	(-8.092223498745023e-143 -1.1510528059285005e-290 -9.27018320794235e+277 1.1351566741790512e+52 974076273668738.8)	-	`(cos.f64 (-.f64 lambda1 lambda2))`
23	1	(2.108737016532193e+231 -7.705081553828698e-243 -1.2960600959726956e-302 12703291683156.748 1.9630690041633452e+223)	-	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
0	0	-	-	`lambda2`
0	0	-	-	`phi2`
0	0	-	-	`(*.f64 (cos.f64 phi1) (cos.f64 phi2))`
0	0	-	-	`(-.f64 lambda1 lambda2)`
0	0	-	-	`R`
0	0	-	-	`(sin.f64 phi1)`
0	0	-	-	`(cos.f64 phi2)`
0	0	-	-	`lambda1`
0	0	-	-	`(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))`
0	0	-	-	`(*.f64 (sin.f64 phi1) (sin.f64 phi2))`
0	0	-	-	`phi1`
0	0	-	-	`(sin.f64 phi2)`
0	0	-	-	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
0	0	-	-	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
0	0	-	-	`(cos.f64 phi1)`

Explanations

Click to see full explanations table

Operator	Subexpression	Explanation	Count
`cos.f64`	`(cos.f64 (-.f64 lambda1 lambda2))`	sensitivity	182	0
`acos.f64`	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`	sensitivity	24	5

Confusion

	Predicted +	Predicted -
+	84	1
-	118	53

Precision

0.4158415841584158

Recall

0.9882352941176471

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	84	1	0
-	118	0	53

Precision?

0.4187192118226601

Recall?

1.0

Freqs

test

number	freq
0	54
1	198
2	4

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

195.0ms	388×	1	valid
24.0ms	116×	0	valid
3.0ms	2×	3	valid
3.0ms	6×	2	valid

Compiler

Compiled 207 to 55 computations (73.4% saved)

Precisions

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

ival-cos: 73.0ms (42.2% of total)

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

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

adjust: 16.0ms (9.2% of total)

ival-acos: 16.0ms (9.2% of total)

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

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

preprocess750.0ms (5.6%)

Memory

-51.5MiB live, 187.5MiB allocated; 856ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	130	412
1	346	408
2	745	408
3	1755	408
4	3844	408
0	17	19
0	29	19
1	54	19
2	102	19
3	242	19
4	546	19
5	1360	19
6	3599	19
7	6869	19
0	8113	18

Stop Event

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

Calls

Call 1

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

Outputs

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

(*.f64 R (acos.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))

Symmetry

(negabs R)

(sort phi1 phi2)

Compiler

Compiled 19 to 17 computations (10.5% saved)

eval0.0ms (0%)

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

prune1.0ms (0%)

Memory

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

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	74.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)

Compiler

Compiled 19 to 17 computations (10.5% saved)

series48.0ms (0.4%)

Memory

-29.5MiB live, 40.2MiB allocated; 9ms collecting garbage

Counts

17 → 106

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable		Point	Expression
14.0ms	lambda1	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (cos (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 R)
4.0ms	phi2	@	0	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (cos (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 R)
3.0ms	phi1	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (cos (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 R)
3.0ms	phi1	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (cos (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 R)
3.0ms	lambda1	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (cos (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 R)

rewrite227.0ms (1.7%)

Memory

28.8MiB live, 204.8MiB allocated; 35ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	441	2705
0	458	2657
1	2623	2655
0	10851	2514

Stop Event

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

Counts

123 → 198

Calls

Call 1

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

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

eval33.0ms (0.2%)

Memory: -3.9MiB live, 41.5MiB allocated; 7ms collecting garbage
Compiler: Compiled 6 447 to 1 231 computations (80.9% saved)

prune51.0ms (0.4%)

Memory

-50.4MiB live, 55.4MiB allocated; 14ms collecting garbage

Pruning

37 alts after pruning (37 fresh and 0 done)

	Pruned	Kept	Total
New	165	37	202
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	166	37	203

Accuracy

93.6%

Counts

203 → 37

Alt Table

Click to see full alt table

Status	Accuracy	Program
	74.3%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	74.4%	(.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
	74.4%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	74.3%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
	74.3%	(.f64 (acos.f64 (+.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) R)
▶	58.5%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	30.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	30.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	74.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	42.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	42.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	46.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	46.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	74.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (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)))))))) R)
	93.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	93.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))) R)
▶	93.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	38.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	38.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	29.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.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)))))))) R)
	63.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)))))) R)
▶	44.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))))) R)
	49.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
	45.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))) R)
▶	31.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	43.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	44.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	32.0%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	32.7%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	43.3%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	53.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	33.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
	37.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
	56.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	40.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
▶	44.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)

Compiler

Compiled 2 356 to 1 696 computations (28% saved)

series127.0ms (0.9%)

Memory

10.4MiB live, 146.1MiB allocated; 17ms collecting garbage

Counts

65 → 352

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable		Point	Expression
25.0ms	lambda2	@	0	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (cos lambda1) lambda1 (cos lambda2) lambda2 (* (sin lambda1) (sin lambda2)) (sin lambda1) (sin lambda2) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) (+ (* -1/720 (* phi1 phi1)) 1/24) -1/720 (* phi1 phi1) 1/24 1/2 1 (* (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) (cos (- phi2 phi1)) (- phi2 phi1) (cos (+ phi2 phi1)) (+ phi2 phi1) 2 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/2) (* (cos lambda2) lambda1) -1/2 (neg (sin lambda2)))
13.0ms	lambda1	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (cos lambda1) lambda1 (cos lambda2) lambda2 (* (sin lambda1) (sin lambda2)) (sin lambda1) (sin lambda2) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) (+ (* -1/720 (* phi1 phi1)) 1/24) -1/720 (* phi1 phi1) 1/24 1/2 1 (* (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) (cos (- phi2 phi1)) (- phi2 phi1) (cos (+ phi2 phi1)) (+ phi2 phi1) 2 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/2) (* (cos lambda2) lambda1) -1/2 (neg (sin lambda2)))
12.0ms	phi1	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (cos lambda1) lambda1 (cos lambda2) lambda2 (* (sin lambda1) (sin lambda2)) (sin lambda1) (sin lambda2) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) (+ (* -1/720 (* phi1 phi1)) 1/24) -1/720 (* phi1 phi1) 1/24 1/2 1 (* (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) (cos (- phi2 phi1)) (- phi2 phi1) (cos (+ phi2 phi1)) (+ phi2 phi1) 2 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/2) (* (cos lambda2) lambda1) -1/2 (neg (sin lambda2)))
8.0ms	lambda1	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (cos lambda1) lambda1 (cos lambda2) lambda2 (* (sin lambda1) (sin lambda2)) (sin lambda1) (sin lambda2) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) (+ (* -1/720 (* phi1 phi1)) 1/24) -1/720 (* phi1 phi1) 1/24 1/2 1 (* (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) (cos (- phi2 phi1)) (- phi2 phi1) (cos (+ phi2 phi1)) (+ phi2 phi1) 2 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/2) (* (cos lambda2) lambda1) -1/2 (neg (sin lambda2)))
7.0ms	lambda2	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (cos lambda1) lambda1 (cos lambda2) lambda2 (* (sin lambda1) (sin lambda2)) (sin lambda1) (sin lambda2) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) (+ (* -1/720 (* phi1 phi1)) 1/24) -1/720 (* phi1 phi1) 1/24 1/2 1 (* (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) (cos (- phi2 phi1)) (- phi2 phi1) (cos (+ phi2 phi1)) (+ phi2 phi1) 2 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/2) (* (cos lambda2) lambda1) -1/2 (neg (sin lambda2)))

rewrite191.0ms (1.4%)

Memory

17.7MiB live, 166.6MiB allocated; 21ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1384	10756
0	1483	9600
0	8822	9139

Stop Event

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

Counts

417 → 619

Calls

Call 1

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

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

eval308.0ms (2.3%)

Memory: 22.1MiB live, 161.0MiB allocated; 32ms collecting garbage
Compiler: Compiled 32 332 to 4 577 computations (85.8% saved)

prune95.0ms (0.7%)

Memory

-29.8MiB live, 167.1MiB allocated; 13ms collecting garbage

Pruning

69 alts after pruning (69 fresh and 0 done)

	Pruned	Kept	Total
New	768	50	818
Fresh	13	19	32
Picked	5	0	5
Done	0	0	0
Total	786	69	855

Accuracy

93.8%

Counts

855 → 69

Alt Table

Click to see full alt table

Status	Accuracy	Program
	74.3%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	31.2%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) phi1) phi1) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	44.4%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
	74.4%	(.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
	74.4%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	74.3%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
	74.3%	(.f64 (acos.f64 (+.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) R)
	28.2%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (sin.f64 (+.f64 (-.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	27.0%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	42.3%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	45.9%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.0%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 #s(approx (+ phi2 phi1) phi2))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.8%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	44.8%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	93.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (+.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
▶	30.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	30.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	74.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	42.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	46.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	46.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	74.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (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)))))))) R)
▶	93.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	93.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
	93.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))) R)
	93.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))))) R)
	56.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	38.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	38.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	63.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)))))) R)
	26.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (fma.f64 (*.f64 lambda1 lambda1) #s(literal -1/2 binary64) #s(literal 1 binary64))))))) R)
	22.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) (+.f64 (/.f64 (cos.f64 lambda2) (.f64 lambda1 lambda1)) (/.f64 (sin.f64 lambda2) lambda1))) (*.f64 lambda1 lambda1))))))) R)
	22.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (cos.f64 lambda2) lambda1) #s(literal -1 binary64) (neg.f64 (sin.f64 lambda2))) lambda1))) (.f64 lambda1 lambda1))))))) R)
	25.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))))) R)
	22.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))) R)
	20.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
	17.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx (cos phi2) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	8.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (*.f64 (pow.f64 phi1 #s(literal 6 binary64)) #s(literal -1/720 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	4.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (*.f64 (-.f64 (-.f64 (fma.f64 (pow.f64 phi1 #s(literal -2 binary64)) #s(literal 1/24 binary64) (pow.f64 phi1 #s(literal -6 binary64))) #s(literal 1/720 binary64)) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi1 #s(literal 4 binary64)))) (pow.f64 phi1 #s(literal 6 binary64))))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	48.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	40.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	53.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	43.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	44.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	31.2%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	32.0%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	31.2%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi1 phi1) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	31.1%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	58.5%	(.f64 (acos.f64 (+.f64 #s(approx (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (.f64 (-.f64 (cos.f64 phi1) (cos.f64 phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	44.1%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R)
	53.2%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	33.5%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
	37.8%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
	56.6%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	40.6%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
	54.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1) (.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1))))) R)
	33.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi1)) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) phi1))) #s(literal 2 binary64)))) R)
	16.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.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 lambda2 lambda1))))) (cos.f64 phi1)))) R)
	28.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	28.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	17.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (.f64 phi1 phi1) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)))))) R)
	17.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))))) R)
	37.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) (cos.f64 phi1)))) R)
	33.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
	24.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) #s(literal -1/2 binary64))) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2))) (cos.f64 phi1)))) R)
	25.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))) (cos.f64 phi1)))) R)
	27.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) R)
	32.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
▶	25.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)

Compiler

Compiled 5 030 to 3 626 computations (27.9% saved)

series187.0ms (1.4%)

Memory

-8.0MiB live, 130.4MiB allocated; 21ms collecting garbage

Counts

76 → 373

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable		Point	Expression
47.0ms	phi1	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (sin lambda2) lambda2 (sin lambda1) lambda1 (* (cos lambda2) (cos lambda1)) (cos lambda2) (cos lambda1) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (+ (* (- (* (+ (* (* phi1 phi1) -1/5040) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (+ (* (- (* (+ (* (* phi1 phi1) -1/5040) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (- (* (+ (* (* phi1 phi1) -1/5040) 1/120) (* phi1 phi1)) 1/6) (* (+ (* (* phi1 phi1) -1/5040) 1/120) (* phi1 phi1)) (+ (* (* phi1 phi1) -1/5040) 1/120) (* phi1 phi1) -1/5040 1/120 1/6 1 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) (+ (* -1/720 (* phi1 phi1)) 1/24) -1/720 1/24 1/2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (* (pow phi1 6) -1/720) (pow phi1 6) 6 (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (sin (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (+ phi2 (/ (PI) 2)) (/ (PI) 2) (PI) 2 (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1))
29.0ms	lambda1	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (sin lambda2) lambda2 (sin lambda1) lambda1 (* (cos lambda2) (cos lambda1)) (cos lambda2) (cos lambda1) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (+ (* (- (* (+ (* (* phi1 phi1) -1/5040) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (+ (* (- (* (+ (* (* phi1 phi1) -1/5040) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (- (* (+ (* (* phi1 phi1) -1/5040) 1/120) (* phi1 phi1)) 1/6) (* (+ (* (* phi1 phi1) -1/5040) 1/120) (* phi1 phi1)) (+ (* (* phi1 phi1) -1/5040) 1/120) (* phi1 phi1) -1/5040 1/120 1/6 1 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) (+ (* -1/720 (* phi1 phi1)) 1/24) -1/720 1/24 1/2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (* (pow phi1 6) -1/720) (pow phi1 6) 6 (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (sin (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (+ phi2 (/ (PI) 2)) (/ (PI) 2) (PI) 2 (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1))
19.0ms	phi1	@	0	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (sin lambda2) lambda2 (sin lambda1) lambda1 (* (cos lambda2) (cos lambda1)) (cos lambda2) (cos lambda1) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (+ (* (- (* (+ (* (* phi1 phi1) -1/5040) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (+ (* (- (* (+ (* (* phi1 phi1) -1/5040) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (- (* (+ (* (* phi1 phi1) -1/5040) 1/120) (* phi1 phi1)) 1/6) (* (+ (* (* phi1 phi1) -1/5040) 1/120) (* phi1 phi1)) (+ (* (* phi1 phi1) -1/5040) 1/120) (* phi1 phi1) -1/5040 1/120 1/6 1 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) (+ (* -1/720 (* phi1 phi1)) 1/24) -1/720 1/24 1/2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (* (pow phi1 6) -1/720) (pow phi1 6) 6 (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (sin (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (+ phi2 (/ (PI) 2)) (/ (PI) 2) (PI) 2 (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1))
9.0ms	phi1	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (sin lambda2) lambda2 (sin lambda1) lambda1 (* (cos lambda2) (cos lambda1)) (cos lambda2) (cos lambda1) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (+ (* (- (* (+ (* (* phi1 phi1) -1/5040) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (+ (* (- (* (+ (* (* phi1 phi1) -1/5040) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (- (* (+ (* (* phi1 phi1) -1/5040) 1/120) (* phi1 phi1)) 1/6) (* (+ (* (* phi1 phi1) -1/5040) 1/120) (* phi1 phi1)) (+ (* (* phi1 phi1) -1/5040) 1/120) (* phi1 phi1) -1/5040 1/120 1/6 1 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) (+ (* -1/720 (* phi1 phi1)) 1/24) -1/720 1/24 1/2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (* (pow phi1 6) -1/720) (pow phi1 6) 6 (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (sin (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (+ phi2 (/ (PI) 2)) (/ (PI) 2) (PI) 2 (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1))
7.0ms	phi2	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (sin lambda2) lambda2 (sin lambda1) lambda1 (* (cos lambda2) (cos lambda1)) (cos lambda2) (cos lambda1) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (+ (* (- (* (+ (* (* phi1 phi1) -1/5040) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (+ (* (- (* (+ (* (* phi1 phi1) -1/5040) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (- (* (+ (* (* phi1 phi1) -1/5040) 1/120) (* phi1 phi1)) 1/6) (* (+ (* (* phi1 phi1) -1/5040) 1/120) (* phi1 phi1)) (+ (* (* phi1 phi1) -1/5040) 1/120) (* phi1 phi1) -1/5040 1/120 1/6 1 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) (+ (* -1/720 (* phi1 phi1)) 1/24) -1/720 1/24 1/2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (* (pow phi1 6) -1/720) (pow phi1 6) 6 (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (sin (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (+ phi2 (/ (PI) 2)) (/ (PI) 2) (PI) 2 (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1))

rewrite246.0ms (1.8%)

Memory

25.4MiB live, 222.2MiB allocated; 51ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1433	14152
0	1538	12587
0	8359	11871

Stop Event

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

Counts

449 → 576

Calls

Call 1

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

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

eval146.0ms (1.1%)

Memory: -3.4MiB live, 179.2MiB allocated; 37ms collecting garbage
Compiler: Compiled 44 510 to 4 895 computations (89% saved)

prune116.0ms (0.9%)

Memory

7.3MiB live, 245.9MiB allocated; 15ms collecting garbage

Pruning

82 alts after pruning (81 fresh and 1 done)

	Pruned	Kept	Total
New	832	40	872
Fresh	23	41	64
Picked	4	1	5
Done	0	0	0
Total	859	82	941

Accuracy

93.9%

Counts

941 → 82

Alt Table

Click to see full alt table

Status	Accuracy	Program
	74.3%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	93.3%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	31.2%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 #s(literal -1/720 binary64) phi1) phi1 #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) phi1) phi1) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2))))) R)
	44.4%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
	25.3%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	74.4%	(.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
▶	93.4%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
	74.4%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	74.3%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
	93.2%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))) (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))))) R)
	74.3%	(.f64 (acos.f64 (+.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) R)
	28.2%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (sin.f64 (+.f64 (-.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	27.0%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	42.3%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.0%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 #s(approx (+ phi2 phi1) phi2))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	8.3%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (cos phi1) #s(approx (+ ( (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (*.f64 (pow.f64 phi1 #s(literal 6 binary64)) #s(literal -1/720 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.8%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	28.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2)))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	19.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	29.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	19.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	74.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	74.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (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)))))))) R)
	56.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) #s(approx (* (cos lambda2) (cos lambda1)) (cos.f64 lambda1)))))) R)
	38.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	38.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	26.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (fma.f64 (*.f64 lambda1 lambda1) #s(literal -1/2 binary64) #s(literal 1 binary64))))))) R)
	22.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) (+.f64 (/.f64 (cos.f64 lambda2) (.f64 lambda1 lambda1)) (/.f64 (sin.f64 lambda2) lambda1))) (*.f64 lambda1 lambda1))))))) R)
	22.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (cos.f64 lambda2) lambda1) #s(literal -1 binary64) (neg.f64 (sin.f64 lambda2))) lambda1))) (.f64 lambda1 lambda1))))))) R)
	8.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (*.f64 (pow.f64 phi1 #s(literal 6 binary64)) #s(literal -1/720 binary64)))) #s(approx (cos phi2) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	29.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	26.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	48.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	40.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	53.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	53.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	43.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	44.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	5.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (*.f64 (pow.f64 phi1 #s(literal 6 binary64)) #s(literal -1/720 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	39.0%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	39.0%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
	13.8%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	20.6%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
	22.8%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
	17.2%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx (cos phi2) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	4.0%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) #s(approx (+ ( (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (*.f64 (pow.f64 phi1 #s(literal 6 binary64)) (-.f64 (-.f64 (fma.f64 #s(literal 1/24 binary64) (pow.f64 phi1 #s(literal -2 binary64)) (pow.f64 phi1 #s(literal -6 binary64))) #s(literal 1/720 binary64)) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi1 #s(literal 4 binary64))))))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	18.0%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	21.4%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) R)
	31.2%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi1 phi1) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	31.1%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) #s(approx (* (+ (* (- (* (+ (* (* phi1 phi1) -1/5040) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	58.5%	(.f64 (acos.f64 (+.f64 #s(approx (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (.f64 (-.f64 (cos.f64 phi1) (cos.f64 phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	44.1%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R)
	53.2%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	33.5%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
▶	37.8%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
	56.6%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	40.6%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
	23.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)) (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	29.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))))) R)
	28.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) R)
	54.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1) (.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1))))) R)
	33.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi1)) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) phi1))) #s(literal 2 binary64)))) R)
▶	16.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.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 lambda2 lambda1))))) (cos.f64 phi1)))) R)
	28.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	28.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	17.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (.f64 phi1 phi1) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)))))) R)
	17.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))))) R)
	37.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))) (cos.f64 phi1)))) R)
	33.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
	24.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) #s(literal -1/2 binary64))) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2))) (cos.f64 phi1)))) R)
	25.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))) (cos.f64 phi1)))) R)
	28.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R)
	32.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (*.f64 (cos.f64 phi1) (cos.f64 lambda2))))) R)
	16.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	7.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.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)))))))) R)
	12.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))))) R)
✓	25.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	21.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))))) R)
	19.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
	17.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
	12.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 lambda2 (sin.f64 lambda1) (cos.f64 lambda1)))))) R)
▶	16.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)

Compiler

Compiled 6 756 to 4 692 computations (30.6% saved)

series125.0ms (0.9%)

Memory

15.5MiB live, 107.7MiB allocated; 5ms collecting garbage

Counts

62 → 427

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable		Point	Expression
26.0ms	lambda1	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos lambda2) lambda2 (cos lambda1) lambda1 (* (sin lambda2) (sin lambda1)) (sin lambda2) (sin lambda1) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (* (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (sin phi1) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda2 lambda1))))) (cos phi1)) (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda2 lambda1))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda2 lambda1)))) (- (pow lambda1 3) (pow lambda2 3)) (pow lambda1 3) 3 (pow lambda2 3) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda2 lambda1))) (+ (* lambda2 lambda2) (* lambda2 lambda1)) (* lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (sin (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (+ (* 1/2 (PI)) phi2) 1/2 (PI) (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (+ phi2 (/ (PI) 2)) (/ (PI) 2) 2)
10.0ms	lambda2	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos lambda2) lambda2 (cos lambda1) lambda1 (* (sin lambda2) (sin lambda1)) (sin lambda2) (sin lambda1) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (* (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (sin phi1) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda2 lambda1))))) (cos phi1)) (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda2 lambda1))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda2 lambda1)))) (- (pow lambda1 3) (pow lambda2 3)) (pow lambda1 3) 3 (pow lambda2 3) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda2 lambda1))) (+ (* lambda2 lambda2) (* lambda2 lambda1)) (* lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (sin (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (+ (* 1/2 (PI)) phi2) 1/2 (PI) (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (+ phi2 (/ (PI) 2)) (/ (PI) 2) 2)
10.0ms	lambda2	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos lambda2) lambda2 (cos lambda1) lambda1 (* (sin lambda2) (sin lambda1)) (sin lambda2) (sin lambda1) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (* (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (sin phi1) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda2 lambda1))))) (cos phi1)) (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda2 lambda1))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda2 lambda1)))) (- (pow lambda1 3) (pow lambda2 3)) (pow lambda1 3) 3 (pow lambda2 3) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda2 lambda1))) (+ (* lambda2 lambda2) (* lambda2 lambda1)) (* lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (sin (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (+ (* 1/2 (PI)) phi2) 1/2 (PI) (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (+ phi2 (/ (PI) 2)) (/ (PI) 2) 2)
9.0ms	lambda1	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos lambda2) lambda2 (cos lambda1) lambda1 (* (sin lambda2) (sin lambda1)) (sin lambda2) (sin lambda1) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (* (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (sin phi1) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda2 lambda1))))) (cos phi1)) (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda2 lambda1))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda2 lambda1)))) (- (pow lambda1 3) (pow lambda2 3)) (pow lambda1 3) 3 (pow lambda2 3) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda2 lambda1))) (+ (* lambda2 lambda2) (* lambda2 lambda1)) (* lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (sin (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (+ (* 1/2 (PI)) phi2) 1/2 (PI) (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (+ phi2 (/ (PI) 2)) (/ (PI) 2) 2)
9.0ms	phi2	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos lambda2) lambda2 (cos lambda1) lambda1 (* (sin lambda2) (sin lambda1)) (sin lambda2) (sin lambda1) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (* (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (sin phi1) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda2 lambda1))))) (cos phi1)) (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda2 lambda1))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda2 lambda1)))) (- (pow lambda1 3) (pow lambda2 3)) (pow lambda1 3) 3 (pow lambda2 3) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda2 lambda1))) (+ (* lambda2 lambda2) (* lambda2 lambda1)) (* lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (sin (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (+ (* 1/2 (PI)) phi2) 1/2 (PI) (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (+ phi2 (/ (PI) 2)) (/ (PI) 2) 2)

rewrite227.0ms (1.7%)

Memory

-18.4MiB live, 358.5MiB allocated; 68ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1733	16491
0	1807	14774
0	8325	14265

Stop Event

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

Counts

489 → 579

Calls

Call 1

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

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

eval108.0ms (0.8%)

Memory: 20.7MiB live, 120.1MiB allocated; 13ms collecting garbage
Compiler: Compiled 34 450 to 4 381 computations (87.3% saved)

prune260.0ms (1.9%)

Memory

24.8MiB live, 297.0MiB allocated; 35ms collecting garbage

Pruning

91 alts after pruning (88 fresh and 3 done)

	Pruned	Kept	Total
New	680	28	708
Fresh	16	60	76
Picked	3	2	5
Done	0	1	1
Total	699	91	790

Accuracy

93.9%

Counts

790 → 91

Alt Table

Click to see full alt table

Status	Accuracy	Program
	74.3%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	93.3%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	31.2%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 #s(literal -1/720 binary64) phi1) phi1 #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) phi1) phi1) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2))))) R)
	37.8%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2))))) R)
	44.4%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
	25.3%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	16.8%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))) R)
	74.4%	(.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
✓	93.4%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
	56.6%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos.f64 lambda1))))) R)
	48.2%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
	53.7%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
	40.0%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	43.6%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	74.4%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	93.2%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))) (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))))) R)
	74.3%	(.f64 (acos.f64 (+.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) R)
	28.2%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (sin.f64 (+.f64 (-.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	27.0%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (+.f64 phi2 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.0%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 #s(approx (+ phi2 phi1) phi2))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	8.3%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (cos phi1) #s(approx (+ ( (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (*.f64 (pow.f64 phi1 #s(literal 6 binary64)) #s(literal -1/720 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	40.8%	(.f64 (acos.f64 (+.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- phi2 phi1) phi2)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	28.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2)))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	20.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (/.f64 (-.f64 (.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 phi1 phi1)) (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	18.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	19.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	28.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(approx (+ ( 1/2 (PI)) phi2) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	74.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	74.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (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)))))))) R)
	56.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) #s(approx (* (cos lambda2) (cos lambda1)) (cos.f64 lambda1)))))) R)
	38.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	26.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (fma.f64 (*.f64 lambda1 lambda1) #s(literal -1/2 binary64) #s(literal 1 binary64))))))) R)
	22.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) (+.f64 (/.f64 (cos.f64 lambda2) (.f64 lambda1 lambda1)) (/.f64 (sin.f64 lambda2) lambda1))) (*.f64 lambda1 lambda1))))))) R)
	22.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (cos.f64 lambda2) lambda1) #s(literal -1 binary64) (neg.f64 (sin.f64 lambda2))) lambda1))) (.f64 lambda1 lambda1))))))) R)
	8.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (*.f64 (pow.f64 phi1 #s(literal 6 binary64)) #s(literal -1/720 binary64)))) #s(approx (cos phi2) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	29.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	26.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	53.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	22.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))) (sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	44.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	39.0%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	39.0%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
	13.8%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	20.6%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
	22.8%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
	17.2%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))) #s(approx (cos phi2) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	4.0%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) #s(approx (+ ( (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (*.f64 (pow.f64 phi1 #s(literal 6 binary64)) (-.f64 (-.f64 (fma.f64 #s(literal 1/24 binary64) (pow.f64 phi1 #s(literal -2 binary64)) (pow.f64 phi1 #s(literal -6 binary64))) #s(literal 1/720 binary64)) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi1 #s(literal 4 binary64))))))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	18.0%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	21.4%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) R)
	31.2%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi1 phi1) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	31.1%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) #s(approx (* (+ (* (- (* (+ (* (* phi1 phi1) -1/5040) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	58.5%	(.f64 (acos.f64 (+.f64 #s(approx (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (.f64 (-.f64 (cos.f64 phi1) (cos.f64 phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	47.6%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))) R)
	44.1%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R)
	53.2%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	18.6%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
	33.5%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
	37.7%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) phi2) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (sin.f64 phi1) phi2) (.f64 (sin.f64 phi1) phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi1) phi2))))))) R)
	40.6%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
	26.0%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 lambda2)))))) R)
	37.5%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)))))) R)
	12.1%	(.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
	23.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)) (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2) phi1)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	29.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)))))) R)
	28.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi2))))) R)
	54.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1) (.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1))))) R)
	33.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi1)) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) phi1))) #s(literal 2 binary64)))) R)
	8.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) #s(approx (+ ( lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda2 lambda1))) (*.f64 lambda2 lambda2)))) (cos.f64 phi1)))) R)
	11.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) #s(approx (+ ( lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda2 lambda1))) (*.f64 lambda1 lambda1)))) (cos.f64 phi1)))) R)
	16.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda2 lambda1))))) (cos.f64 phi1)))) R)
	16.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda2 lambda1))))) (cos.f64 phi1)))) R)
	28.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	28.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	17.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (.f64 phi1 phi1) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)))))) R)
	17.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))))) R)
	33.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ ( lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda2 lambda1)))) lambda1)) (cos.f64 phi1)))) R)
	24.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (/ (- (pow lambda1 3) (pow lambda2 3)) (+ ( lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda2 lambda1))))) (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))))) (cos.f64 phi1)))) R)
	25.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))) (cos.f64 phi1)))) R)
	28.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R)
	32.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (*.f64 (cos.f64 phi1) (cos.f64 lambda2))))) R)
	16.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
✓	25.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	21.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))))) R)
	19.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
	17.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
	12.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 lambda2 (sin.f64 lambda1) (cos.f64 lambda1)))))) R)
	11.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
	11.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (sin.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
✓	16.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
	3.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 lambda2)))))))) R)
	4.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda2) #s(literal 1 binary64)))))) R)

Compiler

Compiled 10 086 to 3 830 computations (62% saved)

regimes426.0ms (3.2%)

Memory

-7.8MiB live, 627.5MiB allocated; 57ms collecting garbage

Counts

156 → 1

Calls

Call 1

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

Outputs
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)

Calls

10 calls:

50.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
44.0ms	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
44.0ms	phi1
42.0ms	lambda2
41.0ms	(-.f64 lambda1 lambda2)

Results

Accuracy	Segments	Branch
93.4%	1	`(-.f64 lambda1 lambda2)`
93.4%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
93.4%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
93.4%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
93.4%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
93.4%	1	`R`
93.4%	1	`lambda1`
93.4%	1	`lambda2`
93.4%	1	`phi1`
93.4%	1	`phi2`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes447.0ms (3.3%)

Memory

-38.8MiB live, 390.5MiB allocated; 31ms collecting garbage

Counts

137 → 3

Calls

Call 1

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

Outputs

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

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

(*.f64 (acos.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)

Calls

10 calls:

47.0ms	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
47.0ms	phi1
46.0ms	R
46.0ms	(cos.f64 (-.f64 lambda1 lambda2))
45.0ms	lambda1

Results

Accuracy	Segments	Branch
74.4%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
74.4%	1	`R`
77.3%	2	`lambda2`
82.2%	3	`phi1`
74.4%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
74.4%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
74.4%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
84.3%	3	`phi2`
77.6%	2	`(-.f64 lambda1 lambda2)`
76.2%	2	`lambda1`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes47.0ms (0.4%)

Memory

25.2MiB live, 70.8MiB allocated; 3ms collecting garbage

Counts

126 → 3

Calls

Call 1

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

Outputs

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

(*.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (*.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)

(*.f64 (acos.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)

Calls

1 calls:

41.0ms

phi2

Results

Accuracy	Segments	Branch
84.2%	3	`phi2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes38.0ms (0.3%)

Memory

13.2MiB live, 58.0MiB allocated; 4ms collecting garbage

Counts

124 → 3

Calls

Call 1

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

Outputs

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

(*.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)

(*.f64 (acos.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)

Calls

1 calls:

32.0ms

phi2

Results

Accuracy	Segments	Branch
84.2%	3	`phi2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes53.0ms (0.4%)

Memory

1.3MiB live, 53.3MiB allocated; 6ms collecting garbage

Counts

120 → 3

Calls

Call 1

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

Outputs

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

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

(*.f64 (acos.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)

Calls

1 calls:

47.0ms

phi2

Results

Accuracy	Segments	Branch
84.1%	3	`phi2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes198.0ms (1.5%)

Memory

-7.2MiB live, 183.5MiB allocated; 11ms collecting garbage

Counts

119 → 1

Calls

Call 1

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

Outputs
(.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)

Calls

5 calls:

47.0ms	phi1
38.0ms	lambda1
35.0ms	(-.f64 lambda1 lambda2)
28.0ms	phi2
28.0ms	lambda2

Results

Accuracy	Segments	Branch
74.4%	1	`lambda1`
74.4%	1	`lambda2`
74.4%	1	`(-.f64 lambda1 lambda2)`
74.4%	1	`phi1`
74.4%	1	`phi2`

Compiler

Compiled 7 to 26 computations (-271.4% saved)

regimes319.0ms (2.4%)

Memory

15.5MiB live, 392.2MiB allocated; 85ms collecting garbage

Counts

84 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

10 calls:

55.0ms	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
44.0ms	phi2
37.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
35.0ms	(cos.f64 (-.f64 lambda1 lambda2))
30.0ms	lambda2

Results

Accuracy	Segments	Branch
59.5%	2	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
59.5%	2	`R`
74.7%	3	`lambda1`
56.6%	1	`(-.f64 lambda1 lambda2)`
56.6%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
56.6%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
61.6%	4	`(cos.f64 (-.f64 lambda1 lambda2))`
74.4%	3	`lambda2`
67.2%	3	`phi1`
67.1%	3	`phi2`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes62.0ms (0.5%)

Memory

5.1MiB live, 85.4MiB allocated; 25ms collecting garbage

Counts

83 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

27.0ms

lambda1

Results

Accuracy	Segments	Branch
74.7%	3	`lambda1`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes103.0ms (0.8%)

Memory

2.4MiB live, 201.6MiB allocated; 43ms collecting garbage

Counts

80 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

3 calls:

52.0ms	lambda1
24.0ms	lambda2
22.0ms	phi1

Results

Accuracy	Segments	Branch
67.2%	3	`phi1`
68.4%	4	`lambda2`
56.6%	1	`lambda1`

Compiler

Compiled 3 to 15 computations (-400% saved)

regimes186.0ms (1.4%)

Memory

13.0MiB live, 292.6MiB allocated; 32ms collecting garbage

Counts

79 → 2

Calls

Call 1

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

Outputs

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

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

Calls

6 calls:

40.0ms	phi2
40.0ms	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
32.0ms	(cos.f64 (-.f64 lambda1 lambda2))
25.0ms	R
23.0ms	phi1

Results

Accuracy	Segments	Branch
56.1%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
44.6%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
44.6%	1	`R`
46.8%	2	`lambda2`
58.3%	2	`phi2`
58.3%	2	`phi1`

Compiler

Compiled 27 to 44 computations (-63% saved)

regimes93.0ms (0.7%)

Memory

4.2MiB live, 92.4MiB allocated; 17ms collecting garbage

Counts

22 → 1

Calls

Call 1

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

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

Calls

10 calls:

30.0ms	phi2
10.0ms	lambda1
7.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
6.0ms	phi1
6.0ms	R

Results

Accuracy	Segments	Branch
44.4%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
44.4%	1	`R`
44.4%	1	`lambda2`
44.4%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
44.4%	1	`lambda1`
44.4%	1	`(-.f64 lambda1 lambda2)`
44.4%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
44.4%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
44.4%	1	`phi1`
44.4%	1	`phi2`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes114.0ms (0.9%)

Memory

-0.7MiB live, 94.4MiB allocated; 59ms collecting garbage

Counts

21 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

10 calls:

54.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
10.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
6.0ms	R
6.0ms	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
6.0ms	phi2

Results

Accuracy	Segments	Branch
35.3%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
39.9%	2	`phi1`
44.6%	3	`lambda1`
44.5%	3	`lambda2`
33.6%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
33.6%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
33.6%	1	`R`
35.6%	2	`phi2`
35.2%	2	`(-.f64 lambda1 lambda2)`
33.6%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes41.0ms (0.3%)

Memory

-22.2MiB live, 27.5MiB allocated; 9ms collecting garbage

Counts

18 → 2

Calls

Call 1

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

Outputs

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

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

Calls

3 calls:

29.0ms	lambda2
5.0ms	lambda1
5.0ms	phi1

Results

Accuracy	Segments	Branch
37.7%	2	`phi1`
32.2%	1	`lambda2`
38.0%	3	`lambda1`

Compiler

Compiled 3 to 15 computations (-400% saved)

regimes52.0ms (0.4%)

Memory

13.7MiB live, 107.3MiB allocated; 4ms collecting garbage

Counts

16 → 1

Calls

Call 1

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

Outputs

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

Calls

10 calls:

6.0ms	phi2
6.0ms	R
5.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
5.0ms	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
5.0ms	phi1

Results

Accuracy	Segments	Branch
25.3%	1	`lambda2`
25.3%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
25.3%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
25.3%	1	`R`
25.3%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
25.3%	1	`(-.f64 lambda1 lambda2)`
25.3%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
25.3%	1	`phi2`
25.3%	1	`lambda1`
25.3%	1	`phi1`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes31.0ms (0.2%)

Memory

-5.1MiB live, 46.1MiB allocated; 4ms collecting garbage

Counts

4 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

10 calls:

12.0ms	lambda2
2.0ms	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
2.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
2.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
2.0ms	(cos.f64 (-.f64 lambda1 lambda2))

Results

Accuracy	Segments	Branch
25.4%	3	`lambda1`
17.2%	1	`phi1`
17.2%	1	`(-.f64 lambda1 lambda2)`
17.2%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
19.5%	2	`phi2`
17.2%	1	`R`
17.2%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
25.4%	3	`lambda2`
17.2%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
17.2%	1	`(cos.f64 (-.f64 lambda1 lambda2))`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes19.0ms (0.1%)

Memory

-22.1MiB live, 25.0MiB allocated; 1ms collecting garbage

Counts

3 → 1

Calls

Call 1

Inputs

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

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

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

Outputs

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

Calls

10 calls:

3.0ms	phi1
2.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
2.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
2.0ms	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
2.0ms	R

Results

Accuracy	Segments	Branch
16.8%	1	`(-.f64 lambda1 lambda2)`
16.8%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
16.8%	1	`phi1`
16.8%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
16.8%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
16.8%	1	`R`
16.8%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
16.8%	1	`phi2`
16.8%	1	`lambda2`
16.8%	1	`lambda1`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes14.0ms (0.1%)

Memory

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

Accuracy

Total -1.1b remaining (-1.8%)

Threshold costs -1.1b (-1.8%)

Counts

2 → 1

Calls

Call 1

Inputs

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

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

Outputs

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

Calls

10 calls:

1.0ms	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
1.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
1.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
1.0ms	lambda2
1.0ms	R

Results

Accuracy	Segments	Branch
4.7%	1	`phi1`
4.7%	1	`phi2`
4.7%	1	`(-.f64 lambda1 lambda2)`
4.7%	1	`lambda1`
4.7%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
4.7%	1	`lambda2`
4.7%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
4.7%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
4.7%	1	`R`
4.7%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

bsearch119.0ms (0.9%)

Memory

-9.8MiB live, 82.3MiB allocated; 5ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
45.0ms	1.943249752432862e-9	1.3571476405607441e-7
66.0ms	-1.2936817526468016e-7	-7.507465225799643e-22

Samples

90.0ms	227×	1	valid
9.0ms	45×	0	valid

Compiler

Compiled 814 to 732 computations (10.1% saved)

Precisions

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

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

ival-sin: 24.0ms (27.6% of total)

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

adjust: 9.0ms (10.4% of total)

ival-acos: 9.0ms (10.4% of total)

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

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

bsearch3.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	1.943249752432862e-9	1.3571476405607441e-7
1.0ms	-1.2936817526468016e-7	-7.507465225799643e-22

Compiler

Compiled 797 to 715 computations (10.3% saved)

bsearch3.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	1.943249752432862e-9	1.3571476405607441e-7
1.0ms	-1.2936817526468016e-7	-7.507465225799643e-22

Compiler

Compiled 1 069 to 885 computations (17.2% saved)

bsearch84.0ms (0.6%)

Memory

17.1MiB live, 64.6MiB allocated; 6ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
39.0ms	1.943249752432862e-9	1.3571476405607441e-7
40.0ms	-1.2936817526468016e-7	-7.507465225799643e-22

Samples

63.0ms	158×	1	valid
6.0ms	34×	0	valid

Compiler

Compiled 950 to 800 computations (15.8% saved)

Precisions

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

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

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

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

ival-acos: 7.0ms (11.5% of total)

adjust: 6.0ms (9.8% of total)

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

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

bsearch107.0ms (0.8%)

Memory

-12.5MiB live, 79.3MiB allocated; 6ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
44.0ms	8.773987715192873e-6	0.0774129600084347
57.0ms	-0.012055971106360877	-3.963686012371494e-14

Samples

59.0ms	155×	1	valid
29.0ms	133×	0	valid

Compiler

Compiled 1 170 to 973 computations (16.8% saved)

Precisions

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

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

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

ival-acos: 10.0ms (13% of total)

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

adjust: 6.0ms (7.8% of total)

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

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

bsearch3.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	8.773987715192873e-6	0.0774129600084347
1.0ms	-0.012055971106360877	-3.963686012371494e-14

Compiler

Compiled 1 210 to 997 computations (17.6% saved)

bsearch122.0ms (0.9%)

Memory

-15.7MiB live, 78.4MiB allocated; 10ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
52.0ms	5.3809190460653267e-8	14.886771074651907
55.0ms	-1.613015968135406	-0.0031328020568437104

Samples

74.0ms	189×	1	valid
12.0ms	83×	0	valid

Compiler

Compiled 1 467 to 1 079 computations (26.4% saved)

Precisions

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

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

ival-sin: 20.0ms (26.6% of total)

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

ival-acos: 8.0ms (10.6% of total)

adjust: 7.0ms (9.3% of total)

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

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

bsearch62.0ms (0.5%)

Memory

8.2MiB live, 53.6MiB allocated; 4ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
58.0ms	1.3571476405607441e-7	0.06923527493264246

Samples

48.0ms	122×	1	valid
4.0ms	22×	0	valid

Compiler

Compiled 508 to 439 computations (13.6% saved)

Precisions

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

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

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

adjust: 5.0ms (10.9% of total)

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

ival-acos: 5.0ms (10.9% of total)

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

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

bsearch86.0ms (0.6%)

Memory

21.1MiB live, 66.9MiB allocated; 4ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
33.0ms	8.773987715192873e-6	0.0774129600084347
47.0ms	-1261.172164962923	-0.018670262318915557

Samples

49.0ms	117×	1	valid
21.0ms	123×	0	valid

Compiler

Compiled 1 076 to 824 computations (23.4% saved)

Precisions

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

ival-cos: 23.0ms (38.8% of total)

ival-sin: 17.0ms (28.7% of total)

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

ival-acos: 6.0ms (10.1% of total)

adjust: 5.0ms (8.4% of total)

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

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

bsearch69.0ms (0.5%)

Memory

3.3MiB live, 49.2MiB allocated; 3ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
64.0ms	-2.743486318694246e-53	-3.3679052795495695e-67

Samples

54.0ms	138×	1	valid
4.0ms	22×	0	valid

Compiler

Compiled 672 to 495 computations (26.3% saved)

Precisions

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

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

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

adjust: 9.0ms (17.7% of total)

ival-mult!: 6.0ms (11.8% of total)

ival-acos: 5.0ms (9.8% of total)

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

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

bsearch73.0ms (0.5%)

Memory

-7.4MiB live, 42.5MiB allocated; 32ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	8.773987715192873e-6	0.0774129600084347
69.0ms	-0.012055971106360877	-3.963686012371494e-14

Samples

50.0ms	77×	1	valid
13.0ms	67×	0	valid

Compiler

Compiled 1 264 to 853 computations (32.5% saved)

Precisions

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

ival-cos: 34.0ms (59.5% of total)

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

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

ival-acos: 4.0ms (7% of total)

adjust: 3.0ms (5.3% of total)

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

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

simplify63.0ms (0.5%)

Memory

-5.3MiB live, 42.4MiB allocated; 4ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	202	1034
1	274	1034
2	385	1034
3	658	1034
4	1344	1034
5	4733	1034

Stop Event

1×	node limit

Calls

Call 1

Inputs
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
(if (<=.f64 phi2 #s(literal -4533471823554859/37778931862957161709568 binary64)) (.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R) (if (<=.f64 phi2 #s(literal 4911261142184431/37778931862957161709568 binary64)) (.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R) (.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)))
(if (<=.f64 phi2 #s(literal -4533471823554859/37778931862957161709568 binary64)) (.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R) (if (<=.f64 phi2 #s(literal 4911261142184431/37778931862957161709568 binary64)) (.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R) (.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)))
(if (<=.f64 phi2 #s(literal -4533471823554859/37778931862957161709568 binary64)) (.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R) (if (<=.f64 phi2 #s(literal 4911261142184431/37778931862957161709568 binary64)) (.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))) R) (.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)))
(if (<=.f64 phi2 #s(literal -1450710983537555/302231454903657293676544 binary64)) (.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R) (if (<=.f64 phi2 #s(literal 7978910409456553/2417851639229258349412352 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1))))) R) (.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)))
(.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(if (<=.f64 lambda1 #s(literal -5548780617371833/1180591620717411303424 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R) (if (<=.f64 lambda1 #s(literal 6198106008766409/590295810358705651712 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R) (.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos.f64 lambda1))))) R)))
(if (<=.f64 lambda1 #s(literal -5548780617371833/1180591620717411303424 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R) (if (<=.f64 lambda1 #s(literal 6198106008766409/590295810358705651712 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)))
(if (<=.f64 phi1 #s(literal -1062849512059437/9007199254740992 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R) (if (<=.f64 phi1 #s(literal 7566047373982433/72057594037927936 binary64)) (.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi1 phi1) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)))
(if (<=.f64 phi2 #s(literal 3423715700080493/2361183241434822606848 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
(if (<=.f64 lambda1 #s(literal -5476377146882523/288230376151711744 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R) (if (<=.f64 lambda1 #s(literal 3246626956972881/36893488147419103232 binary64)) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)))
(if (<=.f64 phi1 #s(literal -2911674240052269/107839786668602559178668060348078522694548577690162289924414440996864 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(if (<=.f64 lambda1 #s(literal -5742397643169489/302231454903657293676544 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R) (if (<=.f64 lambda1 #s(literal 3246626956972881/36893488147419103232 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda2) #s(literal 1 binary64)))))) R)

Outputs
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
(if (<=.f64 phi2 #s(literal -4533471823554859/37778931862957161709568 binary64)) (.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R) (if (<=.f64 phi2 #s(literal 4911261142184431/37778931862957161709568 binary64)) (.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R) (.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)))
(if (<=.f64 phi2 #s(literal -4533471823554859/37778931862957161709568 binary64)) (.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R) (if (<=.f64 phi2 #s(literal 4911261142184431/37778931862957161709568 binary64)) (.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R) (.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)))
(if (<=.f64 phi2 #s(literal -4533471823554859/37778931862957161709568 binary64)) (.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R) (if (<=.f64 phi2 #s(literal 4911261142184431/37778931862957161709568 binary64)) (.f64 (acos.f64 #s(approx (+ (/ (- (cos (- phi2 phi1)) (cos (+ phi2 phi1))) 2) ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))) R) (.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)))
(if (<=.f64 phi2 #s(literal -1450710983537555/302231454903657293676544 binary64)) (.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R) (if (<=.f64 phi2 #s(literal 7978910409456553/2417851639229258349412352 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1))))) R) (.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)))
(.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(if (<=.f64 lambda1 #s(literal -5548780617371833/1180591620717411303424 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R) (if (<=.f64 lambda1 #s(literal 6198106008766409/590295810358705651712 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R) (.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))) (cos.f64 lambda1))))) R)))
(if (<=.f64 lambda1 #s(literal -5548780617371833/1180591620717411303424 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R) (if (<=.f64 lambda1 #s(literal 6198106008766409/590295810358705651712 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)))
(if (or (<=.f64 lambda1 #s(literal -5548780617371833/1180591620717411303424 binary64)) (not (<=.f64 lambda1 #s(literal 6198106008766409/590295810358705651712 binary64)))) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R))
(if (<=.f64 phi1 #s(literal -1062849512059437/9007199254740992 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R) (if (<=.f64 phi1 #s(literal 7566047373982433/72057594037927936 binary64)) (.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi1 phi1) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)))
(if (or (<=.f64 phi1 #s(literal -1062849512059437/9007199254740992 binary64)) (not (<=.f64 phi1 #s(literal 7566047373982433/72057594037927936 binary64)))) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R) (.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi1 phi1) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R))
(if (<=.f64 phi2 #s(literal 3423715700080493/2361183241434822606848 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
(if (<=.f64 lambda1 #s(literal -5476377146882523/288230376151711744 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R) (if (<=.f64 lambda1 #s(literal 3246626956972881/36893488147419103232 binary64)) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)))
(if (or (<=.f64 lambda1 #s(literal -5476377146882523/288230376151711744 binary64)) (not (<=.f64 lambda1 #s(literal 3246626956972881/36893488147419103232 binary64)))) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R))
(if (<=.f64 phi1 #s(literal -2911674240052269/107839786668602559178668060348078522694548577690162289924414440996864 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(if (<=.f64 lambda1 #s(literal -5742397643169489/302231454903657293676544 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R) (if (<=.f64 lambda1 #s(literal 3246626956972881/36893488147419103232 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)))
(if (or (<=.f64 lambda1 #s(literal -5742397643169489/302231454903657293676544 binary64)) (not (<=.f64 lambda1 #s(literal 3246626956972881/36893488147419103232 binary64)))) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda2) #s(literal 1 binary64)))))) R)

derivations526.0ms (3.9%)

Memory

-0.9MiB live, 330.4MiB allocated; 67ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 1 034 to 205 computations (80.2% saved)

preprocess727.0ms (5.4%)

Memory

32.1MiB live, 118.9MiB allocated; 17ms collecting garbage

Remove

(sort phi1 phi2)

(negabs R)

Compiler

Compiled 2 202 to 524 computations (76.2% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze949.0ms (7.1%)

sample4.5s (33.7%)

explain365.0ms (2.7%)

preprocess750.0ms (5.6%)

eval0.0ms (0%)

prune1.0ms (0%)

series48.0ms (0.4%)

rewrite227.0ms (1.7%)

eval33.0ms (0.2%)

prune51.0ms (0.4%)

series127.0ms (0.9%)

rewrite191.0ms (1.4%)

eval308.0ms (2.3%)

prune95.0ms (0.7%)

series187.0ms (1.4%)

rewrite246.0ms (1.8%)

eval146.0ms (1.1%)

prune116.0ms (0.9%)

series125.0ms (0.9%)

rewrite227.0ms (1.7%)

eval108.0ms (0.8%)

prune260.0ms (1.9%)

regimes426.0ms (3.2%)

regimes447.0ms (3.3%)

regimes47.0ms (0.4%)

regimes38.0ms (0.3%)

regimes53.0ms (0.4%)

regimes198.0ms (1.5%)

regimes319.0ms (2.4%)

regimes62.0ms (0.5%)

regimes103.0ms (0.8%)

regimes186.0ms (1.4%)

regimes93.0ms (0.7%)

regimes114.0ms (0.9%)

regimes41.0ms (0.3%)

regimes52.0ms (0.4%)

regimes31.0ms (0.2%)

regimes19.0ms (0.1%)

regimes14.0ms (0.1%)

bsearch119.0ms (0.9%)

bsearch3.0ms (0%)

bsearch3.0ms (0%)

bsearch84.0ms (0.6%)

bsearch107.0ms (0.8%)

bsearch3.0ms (0%)

bsearch122.0ms (0.9%)

bsearch62.0ms (0.5%)

bsearch86.0ms (0.6%)

bsearch69.0ms (0.5%)

bsearch73.0ms (0.5%)

simplify63.0ms (0.5%)

derivations526.0ms (3.9%)

preprocess727.0ms (5.4%)

end0.0ms (0%)

Profiling