Metrics for Spherical law of cosines

start0.0ms (0%)

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

analyze838.0ms (6.5%)

Memory

5.1MiB live, 673.0MiB allocated; 82ms 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.4s (34.5%)

Memory

61.0MiB live, 5 382.2MiB allocated; 842ms collecting garbage

Samples

3.3s	6 366×	1	valid
437.0ms	1 743×	0	valid
67.0ms	121×	2	valid
42.0ms	26×	3	valid

Precisions

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

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

ival-sin: 841.0ms (24.5% of total)

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

adjust: 341.0ms (9.9% of total)

ival-acos: 284.0ms (8.3% of total)

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

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

Bogosity

explain417.0ms (3.3%)

Memory

1.8MiB live, 468.7MiB allocated; 99ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Underpredictions	Example	Subexpression
77	116	(6.071860724934278e+77 4.016788945864787e+147 -5.668005248380911e-263 5.720939005215296e+174 -1.0390532879428576e-37)	0	-	`(cos.f64 (-.f64 lambda1 lambda2))`
21	0	-	2	(1.7981799955782324e+235 2.1763071220772683e+115 -9.013531036268958e+122 7.967446534507656e-134 1.508995340918588e-250)	`(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	-	0	-	`lambda2`
0	0	-	0	-	`phi2`
0	0	-	0	-	`(*.f64 (cos.f64 phi1) (cos.f64 phi2))`
0	0	-	0	-	`(-.f64 lambda1 lambda2)`
0	0	-	0	-	`R`
0	0	-	0	-	`(sin.f64 phi1)`
0	0	-	0	-	`(cos.f64 phi2)`
0	0	-	0	-	`lambda1`
0	0	-	0	-	`(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))`
0	0	-	0	-	`(*.f64 (sin.f64 phi1) (sin.f64 phi2))`
0	0	-	0	-	`phi1`
0	0	-	0	-	`(sin.f64 phi2)`
0	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	-	0	-	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
0	0	-	0	-	`(cos.f64 phi1)`

Explanations

Click to see full explanations table

Operator	Subexpression	Explanation	Count
`cos.f64`	`(cos.f64 (-.f64 lambda1 lambda2))`	sensitivity	193	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	19	5

Confusion

	Predicted +	Predicted -
+	95	0
-	116	45

Precision

0.45023696682464454

Recall

1.0

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	95	0	0
-	116	1	44

Precision?

0.4481132075471698

Recall?

1.0

Freqs

test

number	freq
0	45
1	210
2	1

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

189.0ms	392×	1	valid
22.0ms	112×	0	valid
5.0ms	4×	3	valid
2.0ms	4×	2	valid

Compiler

Compiled 207 to 55 computations (73.4% saved)

Precisions

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

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

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

ival-mult!: 25.0ms (13.7% of total)

ival-acos: 17.0ms (9.3% of total)

adjust: 16.0ms (8.8% of total)

ival-sub!: 5.0ms (2.7% of total)

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

preprocess176.0ms (1.4%)

Memory

3.5MiB live, 184.7MiB allocated; 38ms 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.1MiB live, 0.1MiB allocated; 0ms collecting garbage
Compiler: Compiled 0 to 5 computations (-∞% saved)

prune1.0ms (0%)

Memory

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

Alt Table

Click to see full alt table

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

series42.0ms (0.3%)

Memory

27.6MiB live, 70.2MiB allocated; 8ms 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
6.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)
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)
4.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)
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)

rewrite824.0ms (6.4%)

Memory

-222.9MiB live, 351.8MiB allocated; 1.0s 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))

eval73.0ms (0.6%)

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

prune65.0ms (0.5%)

Memory

-27.6MiB live, 76.6MiB allocated; 13ms collecting garbage

Pruning

40 alts after pruning (40 fresh and 0 done)

	Pruned	Kept	Total
New	162	40	202
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	163	40	203

Accuracy

94.4%

Counts

203 → 40

Alt Table

Click to see full alt table

Status	Accuracy	Program
	72.4%	(.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)
	72.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)
	72.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)
	72.5%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) R)
	72.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)
	72.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)
	72.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)) (-.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)))))) R)
	60.7%	(.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)
	33.5%	(.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)
	47.6%	(.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)
	47.8%	(.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)
	72.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (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)))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	46.8%	(.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)
	72.5%	(.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)
▶	94.2%	(.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)
	94.1%	(.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)
▶	36.0%	(.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)
	35.6%	(.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)
	47.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))))) R)
	61.8%	(.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)
	52.0%	(.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) lambda1))))) R)
	42.8%	(.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 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 lambda1) (.f64 #s(literal 1 binary64) (sin.f64 lambda1))) lambda2 (cos.f64 lambda1)))))) R)
	44.3%	(.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)
	44.3%	(.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)
▶	46.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 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))) R)
	36.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	37.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	36.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	45.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)
	44.3%	(.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)
	47.1%	(.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)
	38.8%	(.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)
▶	39.7%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	45.1%	(.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)
	52.5%	(.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)
	38.4%	(.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)
	38.3%	(.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)
	52.0%	(.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)
	44.9%	(.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.5%	(.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 348 to 1 770 computations (24.6% saved)

series130.0ms (1%)

Memory

3.2MiB live, 192.5MiB allocated; 23ms collecting garbage

Counts

55 → 285

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

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

rewrite246.0ms (1.9%)

Memory

26.1MiB live, 254.4MiB allocated; 27ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1148	9106
0	1226	8238
1	7237	8238
0	8413	7764

Stop Event

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

Counts

340 → 538

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

eval97.0ms (0.8%)

Memory: 21.1MiB live, 166.5MiB allocated; 39ms collecting garbage
Compiler: Compiled 25 512 to 3 572 computations (86% saved)

prune165.0ms (1.3%)

Memory

0.7MiB live, 191.7MiB allocated; 20ms collecting garbage

Pruning

104 alts after pruning (102 fresh and 2 done)

	Pruned	Kept	Total
New	632	80	712
Fresh	13	22	35
Picked	3	2	5
Done	0	0	0
Total	648	104	752

Accuracy

94.6%

Counts

752 → 104

Alt Table

Click to see full alt table

Status	Accuracy	Program
	72.4%	(.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)
	39.6%	(.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 #s(approx (sin phi1) (.f64 (fma.f64 (*.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2))))) R)
	44.5%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
	72.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)
	72.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)
	72.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)
	72.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)
	72.5%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) R)
	72.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)
	72.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))) (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))))))) R)
	72.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)
	39.6%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #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 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (-.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 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))))) R)
	72.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)) (-.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)))))) R)
	60.7%	(.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)
	33.5%	(.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)
	47.6%	(.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)
	47.8%	(.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)
	72.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (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)))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	25.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))))) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	46.8%	(.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)
	72.5%	(.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)
	94.2%	(.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)
	94.2%	(.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 lambda2) (sin.f64 lambda1)))))) R)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
✓	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
▶	94.2%	(.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)
	51.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	52.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	94.1%	(.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)
	27.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
	35.6%	(.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)
▶	33.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) lambda1)))))) R)
	20.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (neg.f64 lambda2)))))) R)
	20.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
	61.8%	(.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)
	52.0%	(.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) lambda1))))) R)
	44.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
	21.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)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) lambda2 lambda1) lambda2 #s(literal 1 binary64))))))) R)
	46.3%	(.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 (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 (+.f64 (/.f64 (cos.f64 lambda2) lambda1) (sin.f64 lambda2)) lambda1)))))) R)
	31.3%	(.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 (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64)))))) R)
	36.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	55.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	45.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)
	54.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	44.3%	(.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)
	24.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi2))))) R)
	47.1%	(.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)
	38.8%	(.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)
	28.6%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))) R)
	26.7%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
	22.7%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 lambda1) (.f64 #s(literal 1 binary64) (sin.f64 lambda1))) lambda2 (cos.f64 lambda1)))))) R)
	37.0%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (.f64 phi1 phi1) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	36.9%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	37.1%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	34.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	38.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
	38.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
▶	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	24.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi2)))) R)
	24.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi1)))) R)
	44.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
	44.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
	44.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
	54.8%	(.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)
	34.7%	(.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)
	54.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1))))) R)
▶	26.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
	30.7%	(.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)
	44.5%	(.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)
	44.5%	(.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)
	44.5%	(.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)
✓	44.5%	(.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)
	44.5%	(.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)
	44.5%	(.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)
	44.5%	(.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)
	20.6%	(.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)
	20.5%	(.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.4%	(.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)
	32.0%	(.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.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2))) (cos.f64 phi1)))) R)
	24.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2))) (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)) (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) R)
	25.9%	(.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 (neg.f64 lambda1) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi1)) (.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
	31.3%	(.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)
▶	28.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 6 530 to 4 945 computations (24.3% saved)

series178.0ms (1.4%)

Memory

-28.7MiB live, 201.8MiB allocated; 23ms collecting garbage

Counts

57 → 350

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

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 (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin phi2)))))))
#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) #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 (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (* -1 lambda2)))))
#s(approx (* (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (sin (* -1 lambda2))))) (* (cos phi1) (cos (* -1 lambda2))))))
#s(approx (* (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (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 (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (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 (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (* -1 lambda2))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* -1 (* lambda1 (sin (* -1 lambda2)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (* -1 lambda2))) (* 1/6 (* lambda1 (sin (* -1 lambda2)))))) (sin (* -1 lambda2)))))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (* -1 (pow lambda2 2))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (- (pow lambda1 2) (pow lambda2 2))))
#s(approx (* lambda1 lambda1) #s(hole binary64 (pow lambda1 2)))
#s(approx (+ lambda1 lambda2) #s(hole binary64 lambda2))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (+ lambda1 lambda2)))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda2))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (cos (- (* 1/2 (PI)) lambda2))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* -1/2 (* lambda1 (sin (- (* 1/2 (PI)) lambda2)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda2))) (* -1/6 (* lambda1 (cos (- (* 1/2 (PI)) lambda2)))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (- (+ lambda1 (* 1/2 (PI))) lambda2)))
#s(approx (* (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) lambda1) #s(hole binary64 (- (* 1/2 (PI)) lambda2)))
#s(approx (* (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) lambda1) #s(hole binary64 (- (+ lambda1 (* 1/2 (PI))) lambda2)))
#s(approx (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) #s(hole binary64 (/ (- (* 1/2 (PI)) lambda2) lambda1)))
#s(approx (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) #s(hole binary64 (/ (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1)))
#s(approx (/ (- (* 1/2 (PI)) lambda2) lambda1) #s(hole binary64 (/ (- (* 1/2 (PI)) lambda2) lambda1)))
#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) #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 (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 lambda1))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (pow lambda1 2)))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ 1 (* -1 (/ (pow lambda2 2) (pow lambda1 2)))))))
#s(approx (+ lambda1 lambda2) #s(hole binary64 lambda1))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (* lambda1 (+ 1 (/ lambda2 lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 lambda1))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* lambda1 (- (+ 1 (* 1/2 (/ (PI) lambda1))) (/ lambda2 lambda1)))))
#s(approx (* (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) lambda1) #s(hole binary64 lambda1))
#s(approx (* (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) lambda1) #s(hole binary64 (* lambda1 (- (+ 1 (* 1/2 (/ (PI) lambda1))) (/ lambda2 lambda1)))))
#s(approx (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) #s(hole binary64 1))
#s(approx (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) #s(hole binary64 (- (+ 1 (* 1/2 (/ (PI) lambda1))) (/ 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 (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1))))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ lambda2 lambda1)) 1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) 1)))))
#s(approx (* (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) lambda1) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) 1)))))
#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 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 (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (* (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (sin lambda1))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ 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 lambda1) (* lambda2 lambda2)) (+ 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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos lambda1)))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (+ (* -1 (pow lambda2 2)) (pow lambda1 2))))
#s(approx (* lambda2 lambda2) #s(hole binary64 (pow lambda2 2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))) (* 1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))) (* 1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda1 (* 1/2 (PI))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* -1 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* -1/2 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* lambda2 (+ (* -1/2 (sin (+ lambda1 (* 1/2 (PI))))) (* 1/6 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))
#s(approx (* (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) lambda1) #s(hole binary64 (* lambda1 (+ 1 (* 1/2 (/ (PI) lambda1))))))
#s(approx (* (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) lambda1) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* 1/2 (/ (PI) lambda1)))))))
#s(approx (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) #s(hole binary64 (+ 1 (* 1/2 (/ (PI) lambda1)))))
#s(approx (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) #s(hole binary64 (+ 1 (+ (* -1 (/ lambda2 lambda1)) (* 1/2 (/ (PI) lambda1))))))
#s(approx (/ (- (* 1/2 (PI)) lambda2) lambda1) #s(hole binary64 (* 1/2 (/ (PI) lambda1))))
#s(approx (/ (- (* 1/2 (PI)) lambda2) lambda1) #s(hole binary64 (+ (* -1 (/ lambda2 lambda1)) (* 1/2 (/ (PI) lambda1)))))
#s(approx (- (* 1/2 (PI)) lambda2) #s(hole binary64 (* 1/2 (PI))))
#s(approx (- (* 1/2 (PI)) lambda2) #s(hole binary64 (+ (* -1 lambda2) (* 1/2 (PI)))))
#s(approx (cos lambda2) #s(hole binary64 (cos lambda2)))
#s(approx (sin lambda2) #s(hole binary64 (sin lambda2)))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (* (pow lambda2 2) (- (/ (pow lambda1 2) (pow lambda2 2)) 1))))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (* lambda2 (+ 1 (/ lambda1 lambda2)))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (/ (PI) lambda2)) (/ lambda1 lambda2)) 1))))
#s(approx (* (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) lambda1) #s(hole binary64 (* -1 lambda2)))
#s(approx (* (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) lambda1) #s(hole binary64 (* lambda2 (- (/ (* lambda1 (+ 1 (* 1/2 (/ (PI) lambda1)))) lambda2) 1))))
#s(approx (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) #s(hole binary64 (* -1 (/ lambda2 lambda1))))
#s(approx (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (/ (PI) (* lambda1 lambda2))) (/ 1 lambda2)) (/ 1 lambda1)))))
#s(approx (/ (- (* 1/2 (PI)) lambda2) lambda1) #s(hole binary64 (* -1 (/ lambda2 lambda1))))
#s(approx (/ (- (* 1/2 (PI)) lambda2) lambda1) #s(hole binary64 (* lambda2 (- (* 1/2 (/ (PI) (* lambda1 lambda2))) (/ 1 lambda1)))))
#s(approx (- (* 1/2 (PI)) lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (- (* 1/2 (PI)) lambda2) #s(hole binary64 (* lambda2 (- (* 1/2 (/ (PI) 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 (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2))))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ lambda1 lambda2)) 1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) lambda1) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (* lambda1 (+ 1 (* 1/2 (/ (PI) lambda1)))) lambda2)))))))
#s(approx (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (+ 1 (* 1/2 (/ (PI) lambda1))) lambda2)) (/ 1 lambda1))))))
#s(approx (/ (- (* 1/2 (PI)) lambda2) lambda1) #s(hole binary64 (* -1 (* lambda2 (+ (* -1/2 (/ (PI) (* lambda1 lambda2))) (/ 1 lambda1))))))
#s(approx (- (* 1/2 (PI)) lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1/2 (/ (PI) 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 (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) #s(hole binary64 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))
#s(approx (* (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) #s(hole binary64 (+ (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) (* -1/2 (* (pow phi1 2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))))
#s(approx (* (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) #s(hole binary64 (+ (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (* 1/24 (* (pow phi1 2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))))))
#s(approx (* (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) #s(hole binary64 (+ (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* 1/24 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos lambda1) (cos phi2)))))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (cos phi2)))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi2) (* -1/2 (* (pow phi1 2) (cos phi2))))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow phi1 2) (cos phi2))))))))
#s(approx (* (cos phi2) (cos phi1)) #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 (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* -1/6 (* (pow phi1 2) (sin phi2)))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* 1/120 (* (pow phi1 2) (sin phi2)))))))))
#s(approx (* (sin phi2) (sin phi1)) #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 (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* 1/24 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#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 (* (cos phi2) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos phi2))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* (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 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 (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos lambda1) (cos phi1)))))) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (cos phi1)))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* -1/2 (* (pow phi2 2) (cos phi1))))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos phi1)) (* 1/24 (* (pow phi2 2) (cos phi1))))))))
#s(approx (* (cos phi2) (cos phi1)) #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 (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* -1/6 (* (pow phi2 2) (sin phi1)))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow phi2 2) (sin phi1)))))))))
#s(approx (* (sin phi2) (sin phi1)) #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 (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* 1/24 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#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
57.0ms	R	@	-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) 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 (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (- (* lambda1 lambda1) (* lambda2 lambda2)) (* lambda1 lambda1) (* lambda2 lambda2) (+ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (* (cos phi2) (cos phi1)) (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) lambda1) (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) 1 (/ (- (* 1/2 (PI)) lambda2) lambda1) (- (* 1/2 (PI)) lambda2) (* 1/2 (PI)) 1/2 (PI))
22.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) 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 (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (- (* lambda1 lambda1) (* lambda2 lambda2)) (* lambda1 lambda1) (* lambda2 lambda2) (+ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (* (cos phi2) (cos phi1)) (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) lambda1) (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) 1 (/ (- (* 1/2 (PI)) lambda2) lambda1) (- (* 1/2 (PI)) lambda2) (* 1/2 (PI)) 1/2 (PI))
20.0ms	phi1	@	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) 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 (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (- (* lambda1 lambda1) (* lambda2 lambda2)) (* lambda1 lambda1) (* lambda2 lambda2) (+ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (* (cos phi2) (cos phi1)) (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) lambda1) (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) 1 (/ (- (* 1/2 (PI)) lambda2) lambda1) (- (* 1/2 (PI)) lambda2) (* 1/2 (PI)) 1/2 (PI))
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) 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 (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (- (* lambda1 lambda1) (* lambda2 lambda2)) (* lambda1 lambda1) (* lambda2 lambda2) (+ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (* (cos phi2) (cos phi1)) (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) lambda1) (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) 1 (/ (- (* 1/2 (PI)) lambda2) lambda1) (- (* 1/2 (PI)) lambda2) (* 1/2 (PI)) 1/2 (PI))
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) 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 (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (- (* lambda1 lambda1) (* lambda2 lambda2)) (* lambda1 lambda1) (* lambda2 lambda2) (+ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (* (cos phi2) (cos phi1)) (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) lambda1) (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) 1 (/ (- (* 1/2 (PI)) lambda2) lambda1) (- (* 1/2 (PI)) lambda2) (* 1/2 (PI)) 1/2 (PI))

rewrite197.0ms (1.5%)

Memory

50.8MiB live, 283.3MiB allocated; 27ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1303	10814
0	1374	9447
0	8074	8929

Stop Event

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

Counts

407 → 570

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

eval93.0ms (0.7%)

Memory: -21.5MiB live, 176.9MiB allocated; 32ms collecting garbage
Compiler: Compiled 24 781 to 3 342 computations (86.5% saved)

prune205.0ms (1.6%)

Memory

-8.5MiB live, 372.4MiB allocated; 28ms collecting garbage

Pruning

165 alts after pruning (160 fresh and 5 done)

	Pruned	Kept	Total
New	533	79	612
Fresh	16	81	97
Picked	2	3	5
Done	0	2	2
Total	551	165	716

Accuracy

94.6%

Counts

716 → 165

Alt Table

Click to see full alt table

Status	Accuracy	Program
	39.6%	(.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 #s(approx (sin phi1) (.f64 (fma.f64 (*.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2))))) R)
	52.0%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
	44.5%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
	28.3%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	72.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)
	72.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)
	72.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)
	72.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)
	72.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)
	72.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)
	72.5%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) R)
	33.8%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1) #s(literal 1 binary64)) lambda1))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) R)
	72.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)
	72.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))) (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))))))) R)
	72.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)
	39.6%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #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 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (-.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 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))))) R)
	72.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)) (-.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)))))) R)
	60.7%	(.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)
	33.5%	(.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)
	47.6%	(.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)
	47.8%	(.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)
	72.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (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)))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	25.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))))) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	72.5%	(.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)
	94.2%	(.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)
	94.2%	(.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 lambda2) (sin.f64 lambda1)))))) R)
	94.2%	(.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 lambda2) (sin.f64 lambda1)))))) R)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
✓	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
▶	94.2%	(.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)
✓	94.2%	(.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)
	51.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	52.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	94.1%	(.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)
	27.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
	35.6%	(.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)
	20.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (neg.f64 lambda2)))))) R)
	20.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
	61.8%	(.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.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
	21.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)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) lambda2 lambda1) lambda2 #s(literal 1 binary64))))))) R)
	46.3%	(.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 (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 (+.f64 (/.f64 (cos.f64 lambda2) lambda1) (sin.f64 lambda2)) lambda1)))))) R)
	55.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
▶	22.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) lambda1)))))) R)
	45.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)
	54.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	44.3%	(.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)
	24.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi2))))) R)
	28.6%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))) R)
	22.7%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 lambda1) (.f64 #s(literal 1 binary64) (sin.f64 lambda1))) lambda2 (cos.f64 lambda1)))))) R)
	37.0%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (.f64 phi1 phi1) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	36.9%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	37.1%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	34.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R)
	38.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
	34.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	34.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
✓	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	26.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) #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)))))) R)
	32.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (sin phi2) phi2) (sin.f64 phi1))))) R)
	32.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	25.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	31.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	31.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
▶	24.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi2)))) R)
	24.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi1)))) R)
	44.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
	44.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
	44.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
	44.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
	44.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
	25.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
	26.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2))))) R)
	31.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))) R)
	32.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))) R)
	27.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (cos.f64 (-.f64 phi1 phi2))))) R)
	28.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	28.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	54.8%	(.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)
	54.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1))))) R)
	17.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2))) (cos.f64 phi1)))) R)
	10.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (exp.f64 (.f64 (log.f64 lambda1) #s(literal 2 binary64))) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
	21.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 #s(approx (- ( lambda1 lambda1) (* lambda2 lambda2)) (*.f64 lambda1 lambda1)) (+.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
	20.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 #s(approx (- ( lambda1 lambda1) (* lambda2 lambda2)) (neg.f64 (*.f64 lambda2 lambda2))) (+.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
	30.7%	(.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)
	44.5%	(.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)
	44.5%	(.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)
	44.5%	(.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)
✓	44.5%	(.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)
	44.5%	(.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)
	44.5%	(.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)
	44.5%	(.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)
	20.6%	(.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)
	20.5%	(.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)
	24.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2))) (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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) R)
	25.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) (.f64 (neg.f64 lambda1) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi1))))))) R)
	31.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
	8.6%	(.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 lambda2 lambda1)))))))) R)
	14.8%	(.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 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1)))))) R)
	28.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)
	28.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)
	28.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)
✓	28.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)
	22.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))) R)
	23.8%	(.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (*.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))))) R)
	18.0%	(.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (neg.f64 lambda2)))))) R)
▶	18.7%	(.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) lambda1))))) R)
	12.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 (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 lambda1) (.f64 #s(literal 1 binary64) (sin.f64 lambda1))) lambda2 (cos.f64 lambda1)))))) R)
	13.2%	(.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 (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))))) R)
	12.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 (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))))) R)
	13.4%	(.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 (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))) R)

Compiler

Compiled 10 996 to 8 342 computations (24.1% saved)

series107.0ms (0.8%)

Memory

-15.2MiB live, 174.5MiB allocated; 15ms collecting garbage

Counts

54 → 339

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

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

Calls

15 calls:

Time	Variable		Point	Expression
17.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) 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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (sin (- (+ (* 1/2 (PI)) lambda1) lambda2)) (cos phi2)) (sin (- (+ (* 1/2 (PI)) lambda1) lambda2)) (- (+ (* 1/2 (PI)) lambda1) lambda2) (+ (* 1/2 (PI)) lambda1) 1/2 (PI) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) lambda1) (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) 1 (/ (- (* 1/2 (PI)) lambda2) lambda1) (- (* 1/2 (PI)) lambda2) (* 1/2 (PI)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (+ (* (* (sin (- (+ (* 1/2 (PI)) lambda1) lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (sin phi2) (sin phi1)))
17.0ms	phi1	@	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) 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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (sin (- (+ (* 1/2 (PI)) lambda1) lambda2)) (cos phi2)) (sin (- (+ (* 1/2 (PI)) lambda1) lambda2)) (- (+ (* 1/2 (PI)) lambda1) lambda2) (+ (* 1/2 (PI)) lambda1) 1/2 (PI) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) lambda1) (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) 1 (/ (- (* 1/2 (PI)) lambda2) lambda1) (- (* 1/2 (PI)) lambda2) (* 1/2 (PI)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (+ (* (* (sin (- (+ (* 1/2 (PI)) lambda1) lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (sin phi2) (sin phi1)))
8.0ms	phi2	@	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) 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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (sin (- (+ (* 1/2 (PI)) lambda1) lambda2)) (cos phi2)) (sin (- (+ (* 1/2 (PI)) lambda1) lambda2)) (- (+ (* 1/2 (PI)) lambda1) lambda2) (+ (* 1/2 (PI)) lambda1) 1/2 (PI) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) lambda1) (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) 1 (/ (- (* 1/2 (PI)) lambda2) lambda1) (- (* 1/2 (PI)) lambda2) (* 1/2 (PI)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (+ (* (* (sin (- (+ (* 1/2 (PI)) lambda1) lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (sin phi2) (sin phi1)))
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) 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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (sin (- (+ (* 1/2 (PI)) lambda1) lambda2)) (cos phi2)) (sin (- (+ (* 1/2 (PI)) lambda1) lambda2)) (- (+ (* 1/2 (PI)) lambda1) lambda2) (+ (* 1/2 (PI)) lambda1) 1/2 (PI) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) lambda1) (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) 1 (/ (- (* 1/2 (PI)) lambda2) lambda1) (- (* 1/2 (PI)) lambda2) (* 1/2 (PI)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (+ (* (* (sin (- (+ (* 1/2 (PI)) lambda1) lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (sin phi2) (sin phi1)))
6.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) 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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (sin (- (+ (* 1/2 (PI)) lambda1) lambda2)) (cos phi2)) (sin (- (+ (* 1/2 (PI)) lambda1) lambda2)) (- (+ (* 1/2 (PI)) lambda1) lambda2) (+ (* 1/2 (PI)) lambda1) 1/2 (PI) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) lambda1) (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) 1 (/ (- (* 1/2 (PI)) lambda2) lambda1) (- (* 1/2 (PI)) lambda2) (* 1/2 (PI)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (+ (* (* (sin (- (+ (* 1/2 (PI)) lambda1) lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (sin phi2) (sin phi1)))

rewrite293.0ms (2.3%)

Memory

33.1MiB live, 319.7MiB allocated; 36ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1227	11217
0	1291	9974
1	7416	9974
0	8545	9510

Stop Event

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

Counts

393 → 514

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

eval96.0ms (0.7%)

Memory: -20.2MiB live, 214.1MiB allocated; 29ms collecting garbage
Compiler: Compiled 29 146 to 3 443 computations (88.2% saved)

prune294.0ms (2.3%)

Memory

-13.9MiB live, 573.2MiB allocated; 108ms collecting garbage

Pruning

216 alts after pruning (208 fresh and 8 done)

	Pruned	Kept	Total
New	592	67	659
Fresh	14	141	155
Picked	2	3	5
Done	0	5	5
Total	608	216	824

Accuracy

94.6%

Counts

824 → 216

Alt Table

Click to see full alt table

Status	Accuracy	Program
	39.6%	(.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 #s(approx (sin phi1) (.f64 (fma.f64 (*.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2))))) R)
	52.0%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
	24.8%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 lambda1 lambda2))) (cos.f64 phi2))))) R)
	44.5%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))) R)
	28.3%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	18.7%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) lambda1)))))) R)
	72.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)
	72.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)
	72.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)
	72.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)
	72.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)
	72.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)
	72.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)
	72.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)
	72.5%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) R)
	72.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)
	72.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))) (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))))))) R)
	72.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)
	39.6%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #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 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (-.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 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))))) R)
	72.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)) (-.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)))))) R)
	60.7%	(.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)
	33.5%	(.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)
	47.6%	(.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)
	47.8%	(.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)
	72.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (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)))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	94.2%	(.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)
	94.2%	(.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 lambda2) (sin.f64 lambda1)))))) R)
	94.2%	(.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 lambda2) (sin.f64 lambda1)))))) R)
	94.2%	(.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 lambda2) (sin.f64 lambda1)))))) R)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
✓	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
	94.2%	(.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)
✓	94.2%	(.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)
	94.2%	(.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)
✓	94.2%	(.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)
	94.2%	(.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)
	51.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	52.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	94.1%	(.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)
	27.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
	35.6%	(.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)
	61.8%	(.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.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
	21.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)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) lambda2 lambda1) lambda2 #s(literal 1 binary64))))))) R)
	46.3%	(.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 (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 (+.f64 (/.f64 (cos.f64 lambda2) lambda1) (sin.f64 lambda2)) lambda1)))))) R)
	16.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) lambda1)))))) R)
	55.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	22.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))) R)
	19.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (neg.f64 lambda2)))))) R)
	19.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(approx (* (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) lambda1) lambda1)))))) R)
	45.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)
	54.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	44.3%	(.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)
	28.6%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))) R)
	22.7%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 lambda1) (.f64 #s(literal 1 binary64) (sin.f64 lambda1))) lambda2 (cos.f64 lambda1)))))) R)
	37.0%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (.f64 phi1 phi1) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	36.9%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	37.1%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	26.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 lambda1 lambda2)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 lambda1 lambda2)) phi2))) #s(literal 2 binary64)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	25.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
✓	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	20.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 #s(approx (- (+ ( 1/2 (PI)) lambda1) lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	20.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 #s(approx (- (+ ( 1/2 (PI)) lambda1) lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	36.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (cos.f64 phi1))))) R)
	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R)
	38.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
	34.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
✓	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	52.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	26.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) #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)))))) R)
	32.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (sin phi2) phi2) (sin.f64 phi1))))) R)
	32.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	25.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	31.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	31.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	36.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (-.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1)) (cos.f64 lambda2)) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1)) (sin.f64 lambda2))) (cos.f64 phi2)))) R)
	19.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	24.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi1)))) R)
	22.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (sin.f64 (-.f64 #s(approx (+ ( 1/2 (PI)) lambda1) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (cos.f64 phi2)))) R)
	22.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (sin.f64 #s(approx (- (+ ( 1/2 (PI)) lambda1) lambda2) (.f64 (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1) #s(literal 1 binary64)) lambda1))) (cos.f64 phi2)))) R)
	19.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (sin.f64 #s(approx (- (+ ( 1/2 (PI)) lambda1) lambda2) (neg.f64 lambda2))) (cos.f64 phi2)))) R)
	19.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (sin.f64 #s(approx (- (+ ( 1/2 (PI)) lambda1) lambda2) lambda1)) (cos.f64 phi2)))) R)
	44.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
	44.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
	44.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
	44.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
	44.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
	25.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))) R)
	26.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2))))) R)
	31.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))) R)
	32.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))) R)
	27.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (cos.f64 (-.f64 phi1 phi2))))) R)
	16.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (sin (- (+ (* 1/2 (PI)) lambda1) lambda2)) (cos phi2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 lambda1 lambda2)))))) R)
	28.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	18.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) lambda1))))) R)
	18.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) lambda1))))) R)
	54.8%	(.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)
	54.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1))))) R)
	17.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2))) (cos.f64 phi1)))) R)
	10.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (/.f64 (-.f64 (exp.f64 (.f64 (log.f64 lambda1) #s(literal 2 binary64))) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
	30.7%	(.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)
	44.5%	(.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)
	44.5%	(.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)
	44.5%	(.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)
✓	44.5%	(.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)
	44.5%	(.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)
	44.5%	(.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)
	20.6%	(.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)
	20.5%	(.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)
	24.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2))) (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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) R)
	25.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) (.f64 (neg.f64 lambda1) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi1))))))) R)
	31.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
	12.5%	(.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 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) lambda1) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
	14.8%	(.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 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1)))))) R)
	28.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)
	28.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)
	28.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)
✓	28.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)
	23.8%	(.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (*.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))))) R)
	18.0%	(.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (neg.f64 lambda2)))))) R)
	18.7%	(.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) lambda1))))) R)
	18.7%	(.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) lambda1))))) R)
	18.7%	(.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) lambda1))))) R)
✓	18.7%	(.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) lambda1))))) R)
	18.7%	(.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) lambda1))))) R)
	12.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 (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 lambda1) (.f64 #s(literal 1 binary64) (sin.f64 lambda1))) lambda2 (cos.f64 lambda1)))))) R)
	13.2%	(.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 (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))))) R)
	12.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 (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))))) R)
	13.4%	(.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 (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))) R)

Compiler

Compiled 12 794 to 6 655 computations (48% saved)

regimes457.0ms (3.6%)

Memory

42.8MiB live, 848.6MiB allocated; 56ms collecting garbage

Counts

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

Outputs

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

Calls

10 calls:

88.0ms	R
62.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)
40.0ms	(-.f64 lambda1 lambda2)
38.0ms	phi2
38.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))

Results

Accuracy	Segments	Branch
94.2%	1	`(-.f64 lambda1 lambda2)`
94.2%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
94.2%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
94.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)))))`
94.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)`
94.2%	1	`R`
94.2%	1	`lambda1`
94.2%	1	`lambda2`
94.2%	1	`phi1`
94.2%	1	`phi2`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes416.0ms (3.2%)

Memory

-27.7MiB live, 594.8MiB allocated; 100ms collecting garbage

Counts

133 → 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)) (cos.f64 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ 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 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (neg.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 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (cos.f64 (-.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (sin (- (+ (* 1/2 (PI)) lambda1) lambda2)) (cos phi2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.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)) (sin.f64 (+.f64 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) lambda1) (/.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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) lambda1)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ 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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) 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 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 lambda1) (* lambda2 lambda2)) (+ 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 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1)))))) 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 lambda1) (* lambda2 lambda2)) (+ 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)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (sin.f64 #s(approx (- (+ ( 1/2 (PI)) lambda1) lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (sin.f64 #s(approx (- (+ ( 1/2 (PI)) lambda1) lambda2) (neg.f64 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)
(.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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.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)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (sin.f64 (-.f64 #s(approx (+ ( 1/2 (PI)) lambda1) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.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)) (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 (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.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 #s(approx (- ( lambda1 lambda1) (* lambda2 lambda2)) (*.f64 lambda1 lambda1)) (+.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 #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 (cos.f64 (/.f64 #s(approx (- ( lambda1 lambda1) (* lambda2 lambda2)) (neg.f64 (*.f64 lambda2 lambda2))) (+.f64 lambda1 lambda2))) (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 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (sin.f64 (+.f64 phi2 (/.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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) 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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (sin.f64 #s(approx (- (+ ( 1/2 (PI)) lambda1) lambda2) (.f64 (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1) #s(literal 1 binary64)) lambda1))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda1) (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)))) (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 (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (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)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))))) 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 (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 lambda1) (.f64 #s(literal 1 binary64) (sin.f64 lambda1))) lambda2 (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (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)) (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)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #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 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (.f64 phi1 phi1) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))) (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 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(approx (* (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) lambda1) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (neg.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)) (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (sin.f64 lambda1) (.f64 (cos.f64 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 lambda1) (* lambda2 lambda2)) (+ 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 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (.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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (sin phi2) phi2) (sin.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 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (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)) (fma.f64 (neg.f64 lambda1) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) (.f64 (neg.f64 lambda1) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi1))))))) 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 ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (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)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) lambda2 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 (-.f64 (exp.f64 (.f64 (log.f64 lambda1) #s(literal 2 binary64))) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 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) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (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)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #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) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) #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)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))) (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 #s(approx (sin phi1) (.f64 (fma.f64 (*.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2))))) 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) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) lambda1)))))) 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 (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (cos.f64 lambda1) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 #s(approx (- (+ ( 1/2 (PI)) lambda1) lambda2) lambda1)) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 #s(approx (- (+ ( 1/2 (PI)) lambda1) lambda2) (neg.f64 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 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (neg.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 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) 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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (-.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1)) (cos.f64 lambda2)) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1)) (sin.f64 lambda2))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) 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 (-.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 (+.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 (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 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1) #s(literal 1 binary64)) lambda1))) (*.f64 (cos.f64 phi2) (cos.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 (-.f64 (.f64 lambda1 lambda1) (.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)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 lambda1 lambda2)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 lambda1 lambda2)) phi2))) #s(literal 2 binary64)) (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) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (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 (+.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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.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)))) (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 (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.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 (+.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 (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (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 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 (+.f64 (/.f64 (cos.f64 lambda2) lambda1) (sin.f64 lambda2)) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 lambda1) (.f64 #s(literal 1 binary64) (sin.f64 lambda1))) lambda2 (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (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 #s(approx ( (cos phi1) (cos phi2)) (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 #s(approx (cos lambda1) #s(literal 1 binary64)) (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 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.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)) #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)))))) R)

Outputs

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

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

Calls

10 calls:

57.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
46.0ms	R
44.0ms	phi1
41.0ms	lambda1
41.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)

Results

Accuracy	Segments	Branch
74.3%	2	`(-.f64 lambda1 lambda2)`
72.5%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
72.5%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
72.5%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
72.5%	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)`
72.5%	1	`R`
77.8%	3	`lambda2`
82.3%	3	`phi1`
82.6%	3	`phi2`
75.0%	2	`lambda1`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes37.0ms (0.3%)

Memory

15.1MiB live, 60.8MiB allocated; 3ms collecting garbage

Counts

127 → 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)) (cos.f64 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ 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 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (neg.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 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (cos.f64 (-.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (sin (- (+ (* 1/2 (PI)) lambda1) lambda2)) (cos phi2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.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)) (sin.f64 (+.f64 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) lambda1) (/.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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) lambda1)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ 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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) 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 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 lambda1) (* lambda2 lambda2)) (+ 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 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1)))))) 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 lambda1) (* lambda2 lambda2)) (+ 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)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (sin.f64 #s(approx (- (+ ( 1/2 (PI)) lambda1) lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (sin.f64 #s(approx (- (+ ( 1/2 (PI)) lambda1) lambda2) (neg.f64 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)
(.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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.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)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (sin.f64 (-.f64 #s(approx (+ ( 1/2 (PI)) lambda1) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.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)) (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 (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.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 #s(approx (- ( lambda1 lambda1) (* lambda2 lambda2)) (*.f64 lambda1 lambda1)) (+.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 #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 (cos.f64 (/.f64 #s(approx (- ( lambda1 lambda1) (* lambda2 lambda2)) (neg.f64 (*.f64 lambda2 lambda2))) (+.f64 lambda1 lambda2))) (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 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (sin.f64 (+.f64 phi2 (/.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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) 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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (sin.f64 #s(approx (- (+ ( 1/2 (PI)) lambda1) lambda2) (.f64 (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1) #s(literal 1 binary64)) lambda1))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda1) (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)))) (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 (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (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)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))))) 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 (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 lambda1) (.f64 #s(literal 1 binary64) (sin.f64 lambda1))) lambda2 (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (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)) (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)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #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 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (.f64 phi1 phi1) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))) (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 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(approx (* (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) lambda1) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (neg.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)) (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (sin.f64 lambda1) (.f64 (cos.f64 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 lambda1) (* lambda2 lambda2)) (+ 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 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (.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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (sin phi2) phi2) (sin.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 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (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)) (fma.f64 (neg.f64 lambda1) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) (.f64 (neg.f64 lambda1) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi1))))))) 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 ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (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)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) lambda2 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 (-.f64 (exp.f64 (.f64 (log.f64 lambda1) #s(literal 2 binary64))) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 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) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (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)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #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) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) #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)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))) (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 #s(approx (sin phi1) (.f64 (fma.f64 (*.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2))))) 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) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) lambda1)))))) 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 (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (cos.f64 lambda1) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 #s(approx (- (+ ( 1/2 (PI)) lambda1) lambda2) lambda1)) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 #s(approx (- (+ ( 1/2 (PI)) lambda1) lambda2) (neg.f64 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 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (neg.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 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) 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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (-.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1)) (cos.f64 lambda2)) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1)) (sin.f64 lambda2))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) 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 (-.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 (+.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 (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 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1) #s(literal 1 binary64)) lambda1))) (*.f64 (cos.f64 phi2) (cos.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 (-.f64 (.f64 lambda1 lambda1) (.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)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 lambda1 lambda2)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 lambda1 lambda2)) phi2))) #s(literal 2 binary64)) (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) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (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 (+.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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.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)))) (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 (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.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 (+.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 (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (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 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 (+.f64 (/.f64 (cos.f64 lambda2) lambda1) (sin.f64 lambda2)) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 lambda1) (.f64 #s(literal 1 binary64) (sin.f64 lambda1))) lambda2 (cos.f64 lambda1)))))) R)

Outputs

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

Calls

1 calls:

31.0ms

phi2

Results

Accuracy	Segments	Branch
82.6%	3	`phi2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes35.0ms (0.3%)

Memory

11.9MiB live, 58.0MiB allocated; 2ms collecting garbage

Counts

121 → 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)) (cos.f64 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ 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 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (neg.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 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (cos.f64 (-.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (sin (- (+ (* 1/2 (PI)) lambda1) lambda2)) (cos phi2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.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)) (sin.f64 (+.f64 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) lambda1) (/.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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) lambda1)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ 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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) 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 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 lambda1) (* lambda2 lambda2)) (+ 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 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1)))))) 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 lambda1) (* lambda2 lambda2)) (+ 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)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (sin.f64 #s(approx (- (+ ( 1/2 (PI)) lambda1) lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (sin.f64 #s(approx (- (+ ( 1/2 (PI)) lambda1) lambda2) (neg.f64 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)
(.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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.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)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (sin.f64 (-.f64 #s(approx (+ ( 1/2 (PI)) lambda1) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.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)) (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 (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.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 #s(approx (- ( lambda1 lambda1) (* lambda2 lambda2)) (*.f64 lambda1 lambda1)) (+.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 #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 (cos.f64 (/.f64 #s(approx (- ( lambda1 lambda1) (* lambda2 lambda2)) (neg.f64 (*.f64 lambda2 lambda2))) (+.f64 lambda1 lambda2))) (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 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (sin.f64 (+.f64 phi2 (/.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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) 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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (sin.f64 #s(approx (- (+ ( 1/2 (PI)) lambda1) lambda2) (.f64 (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1) #s(literal 1 binary64)) lambda1))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda1) (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)))) (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 (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (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)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))))) 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 (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 lambda1) (.f64 #s(literal 1 binary64) (sin.f64 lambda1))) lambda2 (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (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)) (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)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #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 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (.f64 phi1 phi1) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))) (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 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(approx (* (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) lambda1) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (neg.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)) (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (sin.f64 lambda1) (.f64 (cos.f64 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 lambda1) (* lambda2 lambda2)) (+ 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 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (.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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (sin phi2) phi2) (sin.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 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (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)) (fma.f64 (neg.f64 lambda1) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) (.f64 (neg.f64 lambda1) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi1))))))) 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 ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (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)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) lambda2 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 (-.f64 (exp.f64 (.f64 (log.f64 lambda1) #s(literal 2 binary64))) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 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) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (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)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #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) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) #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)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))) (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 #s(approx (sin phi1) (.f64 (fma.f64 (*.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2))))) 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) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) lambda1)))))) 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 (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (cos.f64 lambda1) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 #s(approx (- (+ ( 1/2 (PI)) lambda1) lambda2) lambda1)) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 #s(approx (- (+ ( 1/2 (PI)) lambda1) lambda2) (neg.f64 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 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (neg.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 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) 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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (-.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1)) (cos.f64 lambda2)) (*.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1)) (sin.f64 lambda2))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) 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 (-.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 (+.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 (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 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1) #s(literal 1 binary64)) lambda1))) (*.f64 (cos.f64 phi2) (cos.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 (-.f64 (.f64 lambda1 lambda1) (.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)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 lambda1 lambda2)) phi2)) (sin.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (-.f64 lambda1 lambda2)) phi2))) #s(literal 2 binary64)) (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) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (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 (+.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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (-.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)))) (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 (-.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 #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 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) R)

Calls

1 calls:

30.0ms

phi2

Results

Accuracy	Segments	Branch
82.6%	3	`phi2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes273.0ms (2.1%)

Memory

-4.4MiB live, 421.8MiB allocated; 25ms collecting garbage

Counts

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

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

Calls

9 calls:

31.0ms	phi2
31.0ms	R
30.0ms	lambda2
30.0ms	phi1
29.0ms	(-.f64 lambda1 lambda2)

Results

Accuracy	Segments	Branch
72.5%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
72.5%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
72.5%	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)`
72.5%	1	`R`
72.5%	1	`(-.f64 lambda1 lambda2)`
72.5%	1	`lambda1`
72.5%	1	`lambda2`
72.5%	1	`phi1`
72.5%	1	`phi2`

Compiler

Compiled 47 to 70 computations (-48.9% saved)

regimes246.0ms (1.9%)

Memory

17.9MiB live, 398.1MiB allocated; 33ms collecting garbage

Counts

93 → 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)) (cos.f64 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ 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 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (neg.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 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (cos.f64 (-.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (sin (- (+ (* 1/2 (PI)) lambda1) lambda2)) (cos phi2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.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)) (sin.f64 (+.f64 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) lambda1) (/.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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) lambda1)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ 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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) 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 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 lambda1) (* lambda2 lambda2)) (+ 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 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1)))))) 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 lambda1) (* lambda2 lambda2)) (+ 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)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (sin.f64 #s(approx (- (+ ( 1/2 (PI)) lambda1) lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (sin.f64 #s(approx (- (+ ( 1/2 (PI)) lambda1) lambda2) (neg.f64 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)
(.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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.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)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (sin.f64 (-.f64 #s(approx (+ ( 1/2 (PI)) lambda1) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.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)) (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 (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.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 #s(approx (- ( lambda1 lambda1) (* lambda2 lambda2)) (*.f64 lambda1 lambda1)) (+.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 #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 (cos.f64 (/.f64 #s(approx (- ( lambda1 lambda1) (* lambda2 lambda2)) (neg.f64 (*.f64 lambda2 lambda2))) (+.f64 lambda1 lambda2))) (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 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (sin.f64 (+.f64 phi2 (/.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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) 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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (sin.f64 #s(approx (- (+ ( 1/2 (PI)) lambda1) lambda2) (.f64 (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1) #s(literal 1 binary64)) lambda1))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda1) (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)))) (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 (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (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)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))))) 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 (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 lambda1) (.f64 #s(literal 1 binary64) (sin.f64 lambda1))) lambda2 (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (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)) (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)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #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 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (.f64 phi1 phi1) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))) (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 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(approx (* (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) lambda1) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (neg.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)) (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (sin.f64 lambda1) (.f64 (cos.f64 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 lambda1) (* lambda2 lambda2)) (+ 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 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (.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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (sin phi2) phi2) (sin.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 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (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)) (fma.f64 (neg.f64 lambda1) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) (.f64 (neg.f64 lambda1) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi1))))))) 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 ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (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)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) lambda2 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 (-.f64 (exp.f64 (.f64 (log.f64 lambda1) #s(literal 2 binary64))) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 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) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (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)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #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) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) #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)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))) (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 #s(approx (sin phi1) (.f64 (fma.f64 (*.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2))))) 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) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) lambda1)))))) 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 (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (cos.f64 lambda1) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 #s(approx (- (+ ( 1/2 (PI)) lambda1) lambda2) lambda1)) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (.f64 (sin.f64 #s(approx (- (+ ( 1/2 (PI)) lambda1) lambda2) (neg.f64 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 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) 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 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R)

Calls

10 calls:

26.0ms	(cos.f64 (-.f64 lambda1 lambda2))
26.0ms	phi2
24.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
23.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)
23.0ms	R

Results

Accuracy	Segments	Branch
58.3%	3	`(-.f64 lambda1 lambda2)`
54.6%	2	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
72.3%	3	`lambda1`
64.7%	3	`phi1`
60.2%	4	`(cos.f64 (-.f64 lambda1 lambda2))`
54.6%	2	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
56.0%	3	`(.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)`
56.0%	3	`R`
72.1%	3	`lambda2`
66.0%	3	`phi2`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes27.0ms (0.2%)

Memory

-6.1MiB live, 46.1MiB allocated; 3ms collecting garbage

Counts

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

23.0ms

lambda1

Results

Accuracy	Segments	Branch
72.3%	3	`lambda1`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes175.0ms (1.4%)

Memory

4.2MiB live, 182.7MiB allocated; 45ms 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)) (cos.f64 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ 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 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (neg.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 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (cos.f64 (-.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (sin (- (+ (* 1/2 (PI)) lambda1) lambda2)) (cos phi2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.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)) (sin.f64 (+.f64 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) lambda1) (/.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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) lambda1)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ 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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) 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 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 lambda1) (* lambda2 lambda2)) (+ 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 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1)))))) 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 lambda1) (* lambda2 lambda2)) (+ 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)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (sin.f64 #s(approx (- (+ ( 1/2 (PI)) lambda1) lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (sin.f64 #s(approx (- (+ ( 1/2 (PI)) lambda1) lambda2) (neg.f64 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)
(.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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.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)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (sin.f64 (-.f64 #s(approx (+ ( 1/2 (PI)) lambda1) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.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)) (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 (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.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 #s(approx (- ( lambda1 lambda1) (* lambda2 lambda2)) (*.f64 lambda1 lambda1)) (+.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 #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 (cos.f64 (/.f64 #s(approx (- ( lambda1 lambda1) (* lambda2 lambda2)) (neg.f64 (*.f64 lambda2 lambda2))) (+.f64 lambda1 lambda2))) (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 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (sin.f64 (+.f64 phi2 (/.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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) 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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (sin.f64 #s(approx (- (+ ( 1/2 (PI)) lambda1) lambda2) (.f64 (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1) #s(literal 1 binary64)) lambda1))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda1) (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)))) (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 (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (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)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))))) 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 (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 lambda1) (.f64 #s(literal 1 binary64) (sin.f64 lambda1))) lambda2 (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (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)) (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)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #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 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (.f64 phi1 phi1) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))) (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 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(approx (* (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) lambda1) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (neg.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)) (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (sin.f64 lambda1) (.f64 (cos.f64 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 lambda1) (* lambda2 lambda2)) (+ 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 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (.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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (sin phi2) phi2) (sin.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 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (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)) (fma.f64 (neg.f64 lambda1) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) (.f64 (neg.f64 lambda1) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi1))))))) 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 ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (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)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) lambda2 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 (-.f64 (exp.f64 (.f64 (log.f64 lambda1) #s(literal 2 binary64))) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 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) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (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)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #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) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) #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)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))) (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 #s(approx (sin phi1) (.f64 (fma.f64 (*.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2))))) 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) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) lambda1)))))) 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 (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 #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

4 calls:

57.0ms	lambda2
56.0ms	phi1
36.0ms	phi2
22.0ms	lambda1

Results

Accuracy	Segments	Branch
64.4%	3	`phi1`
64.5%	3	`phi2`
63.9%	3	`lambda2`
57.1%	3	`lambda1`

Compiler

Compiled 4 to 20 computations (-400% saved)

regimes68.0ms (0.5%)

Memory

-2.0MiB live, 92.0MiB allocated; 7ms collecting garbage

Counts

83 → 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)) (cos.f64 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ 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 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (neg.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 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (cos.f64 (-.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (sin (- (+ (* 1/2 (PI)) lambda1) lambda2)) (cos phi2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.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)) (sin.f64 (+.f64 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) lambda1) (/.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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) lambda1)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ 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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) 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 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 lambda1) (* lambda2 lambda2)) (+ 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 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1)))))) 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 lambda1) (* lambda2 lambda2)) (+ 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)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (sin.f64 #s(approx (- (+ ( 1/2 (PI)) lambda1) lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (sin.f64 #s(approx (- (+ ( 1/2 (PI)) lambda1) lambda2) (neg.f64 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)
(.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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.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)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (sin.f64 (-.f64 #s(approx (+ ( 1/2 (PI)) lambda1) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.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)) (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 (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.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 #s(approx (- ( lambda1 lambda1) (* lambda2 lambda2)) (*.f64 lambda1 lambda1)) (+.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 #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 (cos.f64 (/.f64 #s(approx (- ( lambda1 lambda1) (* lambda2 lambda2)) (neg.f64 (*.f64 lambda2 lambda2))) (+.f64 lambda1 lambda2))) (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 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (sin.f64 (+.f64 phi2 (/.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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) 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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (sin.f64 #s(approx (- (+ ( 1/2 (PI)) lambda1) lambda2) (.f64 (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1) #s(literal 1 binary64)) lambda1))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda1) (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)))) (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 (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (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)))) #s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))))) 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 (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 lambda1) (.f64 #s(literal 1 binary64) (sin.f64 lambda1))) lambda2 (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (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)) (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)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #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 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (.f64 phi1 phi1) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))) (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 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(approx (* (+ 1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) lambda1) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (neg.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)) (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (sin.f64 lambda1) (.f64 (cos.f64 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 lambda1) (* lambda2 lambda2)) (+ 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 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (.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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 #s(approx (cos phi2) #s(literal 1 binary64)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) #s(approx (cos phi1) #s(literal 1 binary64))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (sin phi2) phi2) (sin.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 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (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)) (fma.f64 (neg.f64 lambda1) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) (.f64 (neg.f64 lambda1) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi1))))))) 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 ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (*.f64 (sin.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) lambda1) lambda2)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))) (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)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) lambda2 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 (-.f64 (exp.f64 (.f64 (log.f64 lambda1) #s(literal 2 binary64))) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 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) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (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)) #s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #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) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) #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)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))) (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 #s(approx (sin phi1) (.f64 (fma.f64 (*.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (sin.f64 phi2))))) 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) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) lambda1)))))) R)

Outputs

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

Calls

3 calls:

23.0ms	phi2
21.0ms	lambda2
20.0ms	phi1

Results

Accuracy	Segments	Branch
47.1%	1	`lambda2`
60.6%	2	`phi1`
60.7%	2	`phi2`

Compiler

Compiled 3 to 15 computations (-400% saved)

regimes44.0ms (0.3%)

Memory

-13.2MiB live, 33.5MiB allocated; 2ms collecting garbage

Counts

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

Outputs

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

Calls

2 calls:

14.0ms	phi2
14.0ms	phi1

Results

Accuracy	Segments	Branch
60.3%	2	`phi1`
60.5%	2	`phi2`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes31.0ms (0.2%)

Memory

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

Counts

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

(*.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

2 calls:

14.0ms	phi1
14.0ms	phi2

Results

Accuracy	Segments	Branch
60.3%	2	`phi1`
60.3%	2	`phi2`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes76.0ms (0.6%)

Memory

-27.0MiB live, 35.1MiB allocated; 61ms collecting garbage

Counts

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

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

Calls

5 calls:

51.0ms	phi2
6.0ms	phi1
6.0ms	lambda1
6.0ms	(-.f64 lambda1 lambda2)
6.0ms	(cos.f64 (-.f64 lambda1 lambda2))

Results

Accuracy	Segments	Branch
46.3%	2	`lambda1`
51.4%	3	`(-.f64 lambda1 lambda2)`
51.4%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
55.0%	2	`phi2`
48.4%	2	`phi1`

Compiler

Compiled 10 to 28 computations (-180% saved)

regimes63.0ms (0.5%)

Memory

11.6MiB live, 107.4MiB allocated; 10ms collecting garbage

Counts

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

Calls

10 calls:

11.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
7.0ms	lambda2
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	R
6.0ms	phi2

Results

Accuracy	Segments	Branch
46.2%	4	`lambda1`
43.7%	2	`phi1`
45.3%	3	`lambda2`
41.8%	3	`(-.f64 lambda1 lambda2)`
41.8%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
36.2%	3	`(.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)`
36.2%	3	`R`
37.0%	4	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
37.0%	4	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
45.3%	3	`phi2`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes23.0ms (0.2%)

Memory

-5.0MiB live, 40.6MiB allocated; 5ms collecting garbage

Counts

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

Calls

4 calls:

8.0ms	phi2
5.0ms	phi1
5.0ms	lambda1
5.0ms	lambda2

Results

Accuracy	Segments	Branch
44.4%	3	`lambda1`
41.4%	3	`phi1`
41.9%	3	`phi2`
44.4%	3	`lambda2`

Compiler

Compiled 4 to 20 computations (-400% saved)

regimes15.0ms (0.1%)

Memory

-28.4MiB live, 25.3MiB allocated; 3ms collecting garbage

Counts

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

Outputs

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

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

Calls

3 calls:

6.0ms	(cos.f64 (-.f64 lambda1 lambda2))
4.0ms	lambda1
4.0ms	lambda2

Results

Accuracy	Segments	Branch
41.8%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
39.6%	3	`lambda1`
39.1%	3	`lambda2`

Compiler

Compiled 6 to 17 computations (-183.3% saved)

regimes3.0ms (0%)

Memory

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

Counts

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

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

Calls

1 calls:

2.0ms

(cos.f64 (-.f64 lambda1 lambda2))

Results

Accuracy	Segments	Branch
41.8%	2	`(cos.f64 (-.f64 lambda1 lambda2))`

Compiler

Compiled 4 to 7 computations (-75% saved)

regimes17.0ms (0.1%)

Memory

30.2MiB live, 30.2MiB allocated; 0ms 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)) (cos.f64 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ 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 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (neg.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 (-.f64 lambda1 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)) (cos.f64 (-.f64 lambda1 lambda2))))) R)

Calls

10 calls:

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	(cos.f64 (-.f64 lambda1 lambda2))
2.0ms	phi2

Results

Accuracy	Segments	Branch
28.3%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
28.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)))))`
28.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)`
28.3%	1	`R`
28.3%	1	`lambda2`
28.3%	1	`lambda1`
28.3%	1	`phi1`
28.3%	1	`(-.f64 lambda1 lambda2)`
28.3%	1	`phi2`
28.3%	1	`(cos.f64 (-.f64 lambda1 lambda2))`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes34.0ms (0.3%)

Memory

-24.1MiB live, 22.8MiB allocated; 2ms collecting garbage

Counts

2 → 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)) (cos.f64 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ 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 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (neg.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)) (cos.f64 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ 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 #s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (neg.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) lambda1))))) R)

Calls

10 calls:

21.0ms	lambda1
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	(cos.f64 (-.f64 lambda1 lambda2))

Results

Accuracy	Segments	Branch
21.2%	2	`phi1`
18.7%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
28.2%	3	`lambda2`
18.7%	1	`phi2`
20.7%	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)`
20.7%	2	`R`
28.3%	3	`lambda1`
20.4%	2	`(-.f64 lambda1 lambda2)`
18.7%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
18.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)))))`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes8.0ms (0.1%)

Memory

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

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

Inputs

(*.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 lambda1) (* lambda2 lambda2)) (+ 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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) lambda1))))) R)

Calls

7 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	(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	(-.f64 lambda1 lambda2)
1.0ms	lambda1
1.0ms	phi1

Results

Accuracy	Segments	Branch
18.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)))))`
18.7%	1	`(-.f64 lambda1 lambda2)`
18.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)`
18.7%	1	`R`
18.7%	1	`phi1`
18.7%	1	`lambda2`
18.7%	1	`lambda1`

Compiler

Compiled 43 to 59 computations (-37.2% saved)

bsearch139.0ms (1.1%)

Memory

-12.4MiB live, 174.5MiB allocated; 14ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
44.0ms	4.71383857544929e-36	8.57269241661262e-35
84.0ms	-7.7547809562817e+35	-1077345799304166.5

Samples

104.0ms	226×	1	valid
11.0ms	62×	0	valid

Compiler

Compiled 894 to 807 computations (9.7% saved)

Precisions

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

ival-cos: 40.0ms (39.9% of total)

ival-sin: 29.0ms (29% of total)

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

adjust: 9.0ms (9% of total)

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

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

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

bsearch70.0ms (0.5%)

Memory

7.9MiB live, 100.0MiB allocated; 7ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	4.71383857544929e-36	8.57269241661262e-35
65.0ms	-8.860677812207585e-10	-3.127825383550453e-21

Samples

52.0ms	129×	1	valid
5.0ms	31×	0	valid

Compiler

Compiled 997 to 847 computations (15% saved)

Precisions

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

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

ival-sin: 12.0ms (25.4% of total)

adjust: 5.0ms (10.6% of total)

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

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

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

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

bsearch3.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	4.71383857544929e-36	8.57269241661262e-35
1.0ms	-8.860677812207585e-10	-3.127825383550453e-21

Compiler

Compiled 980 to 830 computations (15.3% saved)

bsearch135.0ms (1.1%)

Memory

23.8MiB live, 119.4MiB allocated; 13ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
66.0ms	30633942.9979885	1.5600760662598163e+20
62.0ms	-0.027560658944264568	-0.0010249099759103077

Samples

98.0ms	190×	1	valid
18.0ms	82×	0	valid

Compiler

Compiled 1 184 to 983 computations (17% saved)

Precisions

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

ival-sin: 43.0ms (40.9% of total)

ival-cos: 37.0ms (35.2% of total)

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

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

adjust: 7.0ms (6.7% of total)

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

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

bsearch7.0ms (0.1%)

Memory

-38.9MiB live, 4.6MiB allocated; 5ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	30633942.9979885	1.5600760662598163e+20
1.0ms	-0.027560658944264568	-0.0010249099759103077

Compiler

Compiled 1 144 to 943 computations (17.6% saved)

bsearch140.0ms (1.1%)

Memory

37.7MiB live, 186.6MiB allocated; 29ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
52.0ms	1.8039628561044173e+99	5.544909684223543e+100
81.0ms	-1077345799304166.5	-8.860677812207585e-10

Samples

104.0ms	204×	1	valid
16.0ms	84×	0	valid

Compiler

Compiled 994 to 853 computations (14.2% saved)

Precisions

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

ival-sin: 41.0ms (38.3% of total)

ival-cos: 36.0ms (33.7% of total)

ival-mult!: 12.0ms (11.2% of total)

adjust: 8.0ms (7.5% of total)

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

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

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

bsearch41.0ms (0.3%)

Memory

5.9MiB live, 52.3MiB allocated; 3ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
38.0ms	2.560874522202762e-5	0.00012295055831323972

Samples

32.0ms	82×	1	valid
2.0ms	14×	0	valid

Compiler

Compiled 286 to 265 computations (7.3% saved)

Precisions

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

ival-cos: 12.0ms (39.7% of total)

ival-sin: 7.0ms (23.1% of total)

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

adjust: 3.0ms (9.9% of total)

ival-mult!: 3.0ms (9.9% of total)

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

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

bsearch2.0ms (0%)

Memory

-44.9MiB live, 2.1MiB allocated; 2ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
2.0ms	2.560874522202762e-5	0.00012295055831323972

Compiler

Compiled 316 to 283 computations (10.4% saved)

bsearch57.0ms (0.4%)

Memory

-2.5MiB live, 48.4MiB allocated; 7ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
41.0ms	-1.0706089387522273e-6	-8.414910589524536e-9

Samples

32.0ms	90×	1	valid
4.0ms	22×	0	valid

Compiler

Compiled 400 to 347 computations (13.3% saved)

Precisions

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

ival-cos: 12.0ms (38.2% of total)

ival-sin: 8.0ms (25.5% of total)

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

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

adjust: 3.0ms (9.6% of total)

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

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

bsearch60.0ms (0.5%)

Memory

7.7MiB live, 51.8MiB allocated; 5ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
57.0ms	2109277.4926948813	2825189619.470275

Samples

43.0ms	86×	1	valid
8.0ms	42×	0	valid

Compiler

Compiled 590 to 465 computations (21.2% saved)

Precisions

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

ival-cos: 20.0ms (43.5% of total)

ival-sin: 14.0ms (30.5% of total)

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

adjust: 3.0ms (6.5% of total)

ival-acos: 3.0ms (6.5% of total)

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

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

bsearch116.0ms (0.9%)

Memory

13.3MiB live, 155.9MiB allocated; 19ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
45.0ms	9.689942805238021e-49	1.9651507951159652e-47
66.0ms	-31425126382428960.0	-463861008368.46655

Samples

86.0ms	210×	1	valid
8.0ms	46×	0	valid

Compiler

Compiled 1 254 to 921 computations (26.6% saved)

Precisions

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

ival-cos: 33.0ms (39.6% of total)

ival-sin: 19.0ms (22.8% of total)

adjust: 12.0ms (14.4% of total)

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

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

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

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

bsearch121.0ms (0.9%)

Memory

22.6MiB live, 161.9MiB allocated; 8ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
41.0ms	8.981964038086044e-5	0.02247583153313783
73.0ms	-8.104206916309339e+32	-31425126382428960.0

Samples

95.0ms	228×	1	valid
8.0ms	44×	0	valid

Compiler

Compiled 1 076 to 824 computations (23.4% saved)

Precisions

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

ival-cos: 38.0ms (42% of total)

ival-sin: 23.0ms (25.4% of total)

adjust: 10.0ms (11.1% of total)

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

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

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

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

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.9997474291311704	0.9999999986050213

Compiler

Compiled 22 to 25 computations (-13.6% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.9997474291311704	0.9999999986050213

Compiler

Compiled 22 to 25 computations (-13.6% saved)

bsearch64.0ms (0.5%)

Memory

-30.5MiB live, 65.0MiB allocated; 10ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
58.0ms	1.5600760662598163e+20	2.2166229242226941e+24
1.0ms	-0.027560658944264568	-0.0010249099759103077

Samples

52.0ms	122×	1	valid
1.0ms	6×	0	valid

Compiler

Compiled 1 297 to 880 computations (32.2% saved)

Precisions

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

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

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

adjust: 5.0ms (10.6% of total)

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

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

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

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

derivations602.0ms (4.7%)

Memory

12.9MiB live, 485.4MiB allocated; 42ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 1 445 to 222 computations (84.6% saved)

preprocess253.0ms (2%)

Memory

3.5MiB live, 334.9MiB allocated; 29ms collecting garbage

Remove

(sort phi1 phi2)

(negabs R)

Compiler

Compiled 10 092 to 4 084 computations (59.5% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze838.0ms (6.5%)

sample4.4s (34.5%)

explain417.0ms (3.3%)

preprocess176.0ms (1.4%)

eval0.0ms (0%)

prune1.0ms (0%)

series42.0ms (0.3%)

rewrite824.0ms (6.4%)

eval73.0ms (0.6%)

prune65.0ms (0.5%)

series130.0ms (1%)

rewrite246.0ms (1.9%)

eval97.0ms (0.8%)

prune165.0ms (1.3%)

series178.0ms (1.4%)

rewrite197.0ms (1.5%)

eval93.0ms (0.7%)

prune205.0ms (1.6%)

series107.0ms (0.8%)

rewrite293.0ms (2.3%)

eval96.0ms (0.7%)

prune294.0ms (2.3%)

regimes457.0ms (3.6%)

regimes416.0ms (3.2%)

regimes37.0ms (0.3%)

regimes35.0ms (0.3%)

regimes273.0ms (2.1%)

regimes246.0ms (1.9%)

regimes27.0ms (0.2%)

regimes175.0ms (1.4%)

regimes68.0ms (0.5%)

regimes44.0ms (0.3%)

regimes31.0ms (0.2%)

regimes76.0ms (0.6%)

regimes63.0ms (0.5%)

regimes23.0ms (0.2%)

regimes15.0ms (0.1%)

regimes3.0ms (0%)

regimes17.0ms (0.1%)

regimes34.0ms (0.3%)

regimes8.0ms (0.1%)

bsearch139.0ms (1.1%)

bsearch70.0ms (0.5%)

bsearch3.0ms (0%)

bsearch135.0ms (1.1%)

bsearch7.0ms (0.1%)

bsearch140.0ms (1.1%)

bsearch41.0ms (0.3%)

bsearch2.0ms (0%)

bsearch57.0ms (0.4%)

bsearch60.0ms (0.5%)

bsearch116.0ms (0.9%)

bsearch121.0ms (0.9%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch64.0ms (0.5%)

derivations602.0ms (4.7%)

preprocess253.0ms (2%)

end0.0ms (0%)

Profiling