Metrics for Spherical law of cosines

start0.0ms (0%)

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

analyze3.4s (9.2%)

Memory

-154.0MiB live, 1 951.5MiB allocated; 1.1s collecting garbage

Algorithm

1×

Search

Probability	Valid	Unknown	Precondition	Infinite	Domain	Can't	Iter
0%	0%	99.8%	0.2%	0%	0%	0%	0
0%	0%	99.8%	0.2%	0%	0%	0%	1
0%	0%	99.8%	0.2%	0%	0%	0%	2
0%	0%	99.8%	0.2%	0%	0%	0%	3
0%	0%	99.8%	0.2%	0%	0%	0%	4
0%	0%	99.8%	0.2%	0%	0%	0%	5
0%	0%	99.8%	0.2%	0%	0%	0%	6
0%	0%	99.8%	0.2%	0%	0%	0%	7
0%	0%	99.8%	0.2%	0%	0%	0%	8
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)

sample10.5s (28.4%)

Memory

149.0MiB live, 6 375.5MiB allocated; 1.7s collecting garbage

Samples

9.5s	6 412×	1	valid
351.0ms	1 706×	0	valid
54.0ms	110×	2	valid
38.0ms	28×	3	valid

Precisions

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

ival-cos: 5.2s (54.8% of total)

ival-mult: 2.5s (26.7% of total)

ival-sin: 915.0ms (9.6% of total)

adjust: 392.0ms (4.1% of total)

ival-acos: 262.0ms (2.8% of total)

ival-add: 111.0ms (1.2% of total)

ival-sub: 76.0ms (0.8% of total)

ival-true: 6.0ms (0.1% of total)

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

Bogosity

explain376.0ms (1%)

Memory

33.4MiB live, 544.9MiB allocated; 80ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Example	Subexpression
68	121	(-3.5574322408071116e-284 -5.888878470208993e+242 1.2842492335098556e-276 -5.4598232978665446e-229 -1.905175580557952e+93)	-	`(cos.f64 (-.f64 lambda1 lambda2))`
17	2	(-4.6640559713678055e-5 1.9107144823544562e-203 -5.352140508249337e-283 1.2459320885979806e-305 -5.102955543098754e+253)	-	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
0	0	-	-	`lambda2`
0	0	-	-	`phi2`
0	0	-	-	`(*.f64 (cos.f64 phi1) (cos.f64 phi2))`
0	0	-	-	`(-.f64 lambda1 lambda2)`
0	0	-	-	`R`
0	0	-	-	`(sin.f64 phi1)`
0	0	-	-	`(cos.f64 phi2)`
0	0	-	-	`lambda1`
0	0	-	-	`(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))`
0	0	-	-	`(*.f64 (sin.f64 phi1) (sin.f64 phi2))`
0	0	-	-	`phi1`
0	0	-	-	`(sin.f64 phi2)`
0	0	-	-	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
0	0	-	-	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
0	0	-	-	`(cos.f64 phi1)`

Explanations

Click to see full explanations table

Operator	Subexpression	Explanation	Count
`cos.f64`	`(cos.f64 (-.f64 lambda1 lambda2))`	sensitivity	189	1
`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	2

Confusion

	Predicted +	Predicted -
+	84	0
-	122	50

Precision

0.4077669902912621

Recall

1.0

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	84	0	0
-	122	2	48

Precision?

0.40384615384615385

Recall?

1.0

Freqs

test

number	freq
0	50
1	204
2	2

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

192.0ms	402×	1	valid
21.0ms	106×	0	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: 178.0ms

ival-cos: 68.0ms (38.3% of total)

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

adjust: 22.0ms (12.4% of total)

ival-mult: 22.0ms (12.4% of total)

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

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

ival-add: 4.0ms (2.3% of total)

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

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

preprocess46.0ms (0.1%)

Memory

-0.8MiB live, 44.0MiB allocated; 3ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	135	397
1	364	389
2	763	389
3	1773	389
4	3864	389
0	23	19
0	34	19
0	34	19

Stop Event

1×	saturated
1×	saturated
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)

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

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

Alt Table

Click to see full alt table

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

simplify4.0ms (0%)

Memory

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

Localize:

Found 4 expressions of interest:

New	Metric	Score	Program
cost-diff	0	(*.f64 (sin.f64 phi1) (sin.f64 phi2))
cost-diff	0	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
cost-diff	0	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
cost-diff	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)

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	23	92
0	34	92
0	34	92

Stop Event

1×	saturated
1×	saturated
1×	iter 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)
(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
(.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

localize2.3s (6.3%)

Memory

11.3MiB live, 148.2MiB allocated; 11ms collecting garbage

Localize:

Found 4 expressions of interest:

New	Metric	Score
accuracy	0.23046875	(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
accuracy	0.25	(.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)
accuracy	3.8395079002345125	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
accuracy	14.697087894118242	(cos.f64 (-.f64 lambda1 lambda2))

Samples

2.3s	201×	1	valid
10.0ms	53×	0	valid
1.0ms	2×	2	valid

Compiler

Compiled 94 to 19 computations (79.8% saved)

Precisions

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

ival-sin: 2.2s (96.9% of total)

ival-cos: 35.0ms (1.5% of total)

ival-mult: 13.0ms (0.6% of total)

adjust: 11.0ms (0.5% of total)

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

ival-sub: 2.0ms (0.1% of total)

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

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

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

series36.0ms (0.1%)

Memory

12.9MiB live, 56.9MiB allocated; 5ms collecting garbage

Counts

6 → 64

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

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

Calls

15 calls:

Time	Variable		Point	Expression
4.0ms	phi2	@	-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)) (cos (- lambda1 lambda2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))
4.0ms	lambda2	@	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)) (cos (- lambda1 lambda2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))
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)) (cos (- lambda1 lambda2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))
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)) (cos (- lambda1 lambda2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))
2.0ms	phi2	@	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)) (cos (- lambda1 lambda2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))

simplify325.0ms (0.9%)

Memory

3.8MiB live, 137.1MiB allocated; 13ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	355	2171
1	993	2096
2	3713	1996
0	8234	1986
1	11051	1869
2	17562	1869
3	21534	1869
4	22373	1869
5	22471	1869
6	22479	1869

Stop Event

1×	saturated
1×	node limit

Counts

64 → 36

Calls

Call 1

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

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

rewrite636.0ms (1.7%)

Memory

-19.5MiB live, 161.9MiB allocated; 17ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	23	71
1	34	71
2	44	71
3	50	71
4	52	71
5	54	71
6	56	71
7	58	71
0	58	71
1	125	71
2	783	71
0	8215	68
1	8855	68
2	11021	68
3	14859	68
4	18192	68
5	20117	68
6	21051	68
7	21355	68
8	21406	68
9	21407	68

Stop Event

1×	saturated
1×	node limit
1×	saturated

Counts

6 → 89

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

Outputs
(.f64 R (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(/.f64 (-.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (/.f64 (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))) (.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (/.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))))) (+.f64 (/.f64 (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (/.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)) (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)) (.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1))))
(/.f64 (-.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi2)) (sin.f64 phi2))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)))) (/.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi2)) (sin.f64 phi2))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))))) (.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)))) (/.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)))))) (-.f64 (/.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi2)) (sin.f64 phi2))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)))) (/.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)) (.f64 (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (cos.f64 (-.f64 lambda2 lambda1))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (cos.f64 (-.f64 lambda2 lambda1)))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)) (.f64 (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))
(/.f64 (neg.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)))) (neg.f64 (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (neg.f64 (-.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi2)) (sin.f64 phi2))) (.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)))))) (neg.f64 (fma.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2) (fma.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))))))))
(/.f64 (neg.f64 (neg.f64 (.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))))) (neg.f64 (neg.f64 (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi2)) (sin.f64 phi2)))))) (neg.f64 (neg.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))))
(/.f64 (fma.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi2)) (sin.f64 phi2))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))) (.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi2)) (sin.f64 phi2))) (.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))))) (fma.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2) (fma.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)))))))
(/.f64 (neg.f64 (.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))) (neg.f64 (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))))
(/.f64 (neg.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi2)) (sin.f64 phi2))))) (neg.f64 (fma.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))))
(/.f64 (neg.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi2)) (sin.f64 phi2))))) (neg.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)))))
(/.f64 (.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi2)) (sin.f64 phi2)))) (fma.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi2)) (sin.f64 phi2)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))))
(fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (cos.f64 (-.f64 lambda2 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 (-.f64 lambda2 lambda1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (cos.f64 (-.f64 lambda2 lambda1))))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (cos.f64 (-.f64 lambda2 lambda1))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))
(-.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(-.f64 (/.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi2)) (sin.f64 phi2))) (fma.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2) (fma.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))))))) (/.f64 (.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)))) (fma.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2) (fma.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))))))))
(-.f64 (/.f64 (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (/.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))
(-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))))
(+.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (fma.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) (/.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi2)) (sin.f64 phi2))) (fma.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))))
(+.f64 (/.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi2)) (sin.f64 phi2))) (fma.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))) (/.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (fma.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))))
(+.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)))) (/.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi2)) (sin.f64 phi2))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)))))
(+.f64 (/.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi2)) (sin.f64 phi2))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)))) (/.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)))))
(+.f64 (/.f64 (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (/.f64 (.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))))
(+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (cos.f64 (-.f64 lambda2 lambda1))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))
(*.f64 (sin.f64 phi2) (sin.f64 phi1))
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)))) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (-.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))
(/.f64 (fma.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (fma.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (-.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))
(/.f64 (neg.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))))) (neg.f64 (cos.f64 (+.f64 lambda2 lambda1))))
(/.f64 (neg.f64 (fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.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 (sin.f64 lambda2) (sin.f64 lambda1))))) (neg.f64 (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)))))))
(/.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)))) (cos.f64 (+.f64 lambda2 lambda1)))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.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 (sin.f64 lambda2) (sin.f64 lambda1)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
(fma.f64 (cos.f64 (/.f64 (.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (cos.f64 (/.f64 (.f64 lambda2 lambda2) (+.f64 lambda2 lambda1))) (.f64 (sin.f64 (/.f64 (.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (sin.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1)))))
(fma.f64 (cos.f64 (/.f64 (.f64 (.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)))) (cos.f64 (/.f64 (.f64 (.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)))) (.f64 (sin.f64 (/.f64 (.f64 (.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)))) (sin.f64 (/.f64 (.f64 (.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))))
(fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(-.f64 (/.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (cos.f64 (+.f64 lambda2 lambda1))) (/.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (cos.f64 (+.f64 lambda2 lambda1))))
(-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)))
(cos.f64 (neg.f64 (neg.f64 (neg.f64 (-.f64 lambda1 lambda2)))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos.f64 (neg.f64 (neg.f64 (-.f64 lambda1 lambda2))))
(cos.f64 (neg.f64 (-.f64 lambda1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (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)))))) (/.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (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)))))))
(+.f64 (.f64 (cos.f64 (/.f64 (.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (cos.f64 (/.f64 (.f64 lambda2 lambda2) (+.f64 lambda2 lambda1)))) (.f64 (sin.f64 (/.f64 (.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (sin.f64 (/.f64 (.f64 lambda2 lambda2) (+.f64 lambda2 lambda1)))))
(+.f64 (.f64 (cos.f64 (/.f64 (.f64 (.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)))) (cos.f64 (/.f64 (.f64 (.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1))))) (.f64 (sin.f64 (/.f64 (.f64 (.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)))) (sin.f64 (/.f64 (.f64 (.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1))))))
(+.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 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.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 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 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))) (-.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)))))
(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))))

eval21.0ms (0.1%)

Memory: 6.3MiB live, 51.6MiB allocated; 4ms collecting garbage
Compiler: Compiled 5 827 to 629 computations (89.2% saved)

prune23.0ms (0.1%)

Memory

3.8MiB live, 49.6MiB allocated; 1ms collecting garbage

Pruning

24 alts after pruning (24 fresh and 0 done)

	Pruned	Kept	Total
New	91	24	115
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	92	24	116

Accuracy

93.8%

Counts

116 → 24

Alt Table

Click to see full alt table

Status	Accuracy	Program
	73.6%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)
	73.4%	(.f64 (acos.f64 (/.f64 (fma.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi2)) (sin.f64 phi2))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))) (.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)))))) R)
▶	73.4%	(.f64 (acos.f64 (/.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi2)) (sin.f64 phi2)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))))) R)
	73.4%	(.f64 (acos.f64 (/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))))) R)
	73.5%	(.f64 (acos.f64 (/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	73.6%	(.f64 (acos.f64 (/.f64 (.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))) R)
	93.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (/.f64 (-.f64 (.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 (cos.f64 lambda2) (cos.f64 lambda1)))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))) (-.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))) R)
	93.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (+.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
▶	93.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
▶	93.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
	93.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (fma.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (fma.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (-.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))))) R)
	93.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (-.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))) R)
	93.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (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)))))) (/.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))))))) R)
	39.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
	44.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
	42.2%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	42.4%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi1) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	49.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	49.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda2)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	57.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	32.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
	37.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi1) phi2 (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
	40.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) R)
▶	44.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))) R)

Compiler

Compiled 2 526 to 1 176 computations (53.4% saved)

simplify69.0ms (0.2%)

Memory

17.6MiB live, 62.6MiB allocated; 2ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score	Program
cost-diff	0	(fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi2)) (sin.f64 phi2))))
cost-diff	0	(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi2)) (sin.f64 phi2)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))))
cost-diff	0	(acos.f64 (/.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi2)) (sin.f64 phi2)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)))))
cost-diff	0	(.f64 (acos.f64 (/.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi2)) (sin.f64 phi2)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))))) R)
cost-diff	0	(*.f64 (sin.f64 phi1) (sin.f64 phi2))
cost-diff	0	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))
cost-diff	0	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
cost-diff	0	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
cost-diff	0	#s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi1) phi2))
cost-diff	0	(+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi1) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
cost-diff	0	(acos.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi1) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
cost-diff	0	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi1) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
cost-diff	0	(*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))
cost-diff	0	#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))
cost-diff	0	(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))
cost-diff	0	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))) R)
cost-diff	0	(*.f64 (sin.f64 phi1) (sin.f64 phi2))
cost-diff	0	(+.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)))))
cost-diff	0	(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))))))
cost-diff	0	(.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)

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	78	1005
0	93	1005
1	117	1005
2	165	1005
3	305	1005
4	609	1005
5	1423	1005
6	3652	1005
7	6942	1005
0	8186	1005

Stop Event

1×	saturated
1×	node limit
1×	iter limit

Calls

Call 1

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

localize1.2s (3.3%)

Memory

40.8MiB live, 742.3MiB allocated; 66ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	0.3600387695368841	(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
accuracy	0.36947250976844204	(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi2)) (sin.f64 phi2)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))))
accuracy	3.8395079002345125	(acos.f64 (/.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi2)) (sin.f64 phi2)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)))))
accuracy	14.697087894118242	(cos.f64 (-.f64 lambda2 lambda1))
accuracy	0.20703125	(*.f64 (sin.f64 lambda2) (sin.f64 lambda1))
accuracy	0.23046875	(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
accuracy	0.25	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
accuracy	3.8395079002345125	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
accuracy	0.25	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi1) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
accuracy	3.8395079002345125	(acos.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi1) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
accuracy	14.697087894118242	(cos.f64 (-.f64 lambda1 lambda2))
accuracy	29.255238981499105	#s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi1) phi2))
accuracy	0.25	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))) R)
accuracy	3.8395079002345125	(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))
accuracy	14.697087894118242	(cos.f64 (-.f64 lambda2 lambda1))
accuracy	27.691907891390375	#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))
accuracy	0.20703125	(*.f64 (sin.f64 phi1) (sin.f64 phi2))
accuracy	0.23046875	(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))
accuracy	0.25	(.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)
accuracy	3.8395079002345125	(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))))))

Samples

1.1s	201×	1	valid
32.0ms	53×	0	valid
3.0ms	2×	2	valid

Compiler

Compiled 981 to 62 computations (93.7% saved)

Precisions

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

adjust: 469.0ms (42.3% of total)

ival-mult: 467.0ms (42.1% of total)

ival-cos: 79.0ms (7.1% of total)

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

ival-acos: 27.0ms (2.4% of total)

ival-add: 12.0ms (1.1% of total)

ival-sub: 8.0ms (0.7% of total)

ival-div: 2.0ms (0.2% of total)

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

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

series189.0ms (0.5%)

Memory

3.3MiB live, 335.7MiB allocated; 38ms collecting garbage

Counts

25 → 205

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable		Point	Expression
27.0ms	phi1	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (* (sin phi1) (sin phi2)) (* (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 (- lambda2 lambda1))) (* (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)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) (* (acos (/ (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2))))) R) (acos (/ (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2))))) (/ (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (cos (- lambda2 lambda1)) (cos (- lambda1 lambda2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (* (sin lambda2) (sin lambda1)) (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))))
25.0ms	lambda1	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (* (sin phi1) (sin phi2)) (* (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 (- lambda2 lambda1))) (* (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)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) (* (acos (/ (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2))))) R) (acos (/ (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2))))) (/ (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (cos (- lambda2 lambda1)) (cos (- lambda1 lambda2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (* (sin lambda2) (sin lambda1)) (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))))
13.0ms	phi2	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (* (sin phi1) (sin phi2)) (* (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 (- lambda2 lambda1))) (* (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)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) (* (acos (/ (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2))))) R) (acos (/ (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2))))) (/ (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (cos (- lambda2 lambda1)) (cos (- lambda1 lambda2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (* (sin lambda2) (sin lambda1)) (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))))
13.0ms	phi1	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (* (sin phi1) (sin phi2)) (* (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 (- lambda2 lambda1))) (* (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)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) (* (acos (/ (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2))))) R) (acos (/ (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2))))) (/ (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (cos (- lambda2 lambda1)) (cos (- lambda1 lambda2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (* (sin lambda2) (sin lambda1)) (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))))
12.0ms	phi2	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (* (sin phi1) (sin phi2)) (* (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 (- lambda2 lambda1))) (* (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)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1))))) (* (acos (/ (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2))))) R) (acos (/ (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2))))) (/ (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (cos (- lambda2 lambda1)) (cos (- lambda1 lambda2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda2) (cos lambda1)) (* (sin lambda2) (sin lambda1)))) (* (sin lambda2) (sin lambda1)) (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))))

simplify677.0ms (1.8%)

Memory

-4.9MiB live, 225.5MiB allocated; 15ms collecting garbage

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	1248	15528
1	3660	14422
0	8259	14402
1	10070	14029
2	13630	14021
3	16581	14021
4	18261	14021
5	19251	14021
6	20138	14021
7	21130	14021
8	21721	14021
9	21932	14021
10	21950	14021

Stop Event

1×	saturated
1×	node limit

Counts

205 → 110

Calls

Call 1

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

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

rewrite692.0ms (1.9%)

Memory

8.7MiB live, 197.4MiB allocated; 12ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	78	678
1	93	678
2	108	678
3	127	678
4	146	678
5	160	678
6	169	678
7	176	678
8	182	678
9	184	678
10	186	678
0	186	389
1	554	385
2	4339	385
0	8443	376
1	10127	376
2	13744	376
3	17283	376
4	20055	376
5	21770	376
6	22643	376
7	22927	376

Stop Event

1×	saturated
1×	node limit
1×	saturated

Counts

25 → 511

Calls

Call 1

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

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

eval116.0ms (0.3%)

Memory: -14.4MiB live, 213.9MiB allocated; 53ms collecting garbage
Compiler: Compiled 46 083 to 2 814 computations (93.9% saved)

prune54.0ms (0.1%)

Memory

8.7MiB live, 109.0MiB allocated; 10ms collecting garbage

Pruning

41 alts after pruning (38 fresh and 3 done)

	Pruned	Kept	Total
New	513	29	542
Fresh	10	9	19
Picked	2	3	5
Done	0	0	0
Total	525	41	566

Accuracy

93.9%

Counts

566 → 41

Alt Table

Click to see full alt table

Status	Accuracy	Program
	73.2%	(.f64 (-.f64 (PI.f64) (acos.f64 (/.f64 (fma.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 phi1)) (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi2)))) (neg.f64 (fma.f64 (fma.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi2)) (sin.f64 phi2))))))) R)
	93.7%	(.f64 (acos.f64 (fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	93.7%	(.f64 (acos.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda2)) (cos.f64 lambda1) (fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
▶	93.7%	(.f64 (acos.f64 (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	73.6%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)
	73.4%	(.f64 (acos.f64 (/.f64 (fma.f64 (.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 phi2))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi2)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))))) R)
	73.3%	(.f64 (acos.f64 (/.f64 (fma.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 phi1))) (fma.f64 (fma.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi2)) (sin.f64 phi2))) (.f64 (fma.f64 (fma.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi2)) (sin.f64 phi2))) (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi2))))) (.f64 (fma.f64 (fma.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi2)) (sin.f64 phi2))) (fma.f64 (fma.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi2)) (sin.f64 phi2)))))) R)
	73.4%	(.f64 (acos.f64 (/.f64 (fma.f64 (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi2)) (sin.f64 phi2)) (sin.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi1)) (.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 phi1)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))))) R)
	37.7%	(.f64 (acos.f64 (/.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 #s(approx (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (.f64 (cos.f64 phi2) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi2)) (sin.f64 phi2)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))))) R)
	73.5%	(.f64 (acos.f64 (/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	73.6%	(.f64 (acos.f64 (/.f64 (.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))) R)
	46.7%	(.f64 (acos.f64 (/.f64 #s(approx (+ ( (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (fma.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda2)) (cos.f64 lambda2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (cos.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi2))) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi1)))))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))))) R)
	41.9%	(.f64 (acos.f64 (/.f64 #s(approx (+ ( (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi1) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))))) R)
✓	93.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	93.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (-.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))) R)
	54.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1))))) R)
▶	49.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
	39.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
	44.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
	54.2%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
▶	42.2%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
✓	42.4%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi1) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	37.6%	(.f64 (acos.f64 #s(approx (/ (+ ( (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2)))) (fma.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 (sin.f64 phi1) phi2)))) R)
	40.3%	(.f64 (acos.f64 #s(approx (/ (+ ( (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) R)
	93.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	47.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))) R)
	49.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	57.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda1)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	49.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	49.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda2)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	32.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
▶	44.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (.f64 (.f64 (fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (sin.f64 lambda1)) (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (sin.f64 lambda1)) (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))))))) R)
	44.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 (+.f64 lambda1 lambda2))))) R)
	55.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R)
	55.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) (-.f64 (/.f64 (.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (sin.f64 lambda1)) (sin.f64 lambda2)) (-.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) (/.f64 (.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 lambda1)) (cos.f64 lambda2)) (-.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))))) R)
	55.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) (+.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 lambda1)) (cos.f64 lambda2) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (-.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) (/.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 lambda1)) (cos.f64 lambda2) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (-.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))))))) R)
✓	44.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))) R)
	29.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
	30.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda2))))) R)
	35.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))))) R)
▶	27.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))))) R)

Compiler

Compiled 4 514 to 2 327 computations (48.4% saved)

simplify63.0ms (0.2%)

Memory

15.7MiB live, 61.6MiB allocated; 5ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score	Program
cost-diff	0	(/.f64 (.f64 (.f64 (fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (sin.f64 lambda1)) (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (sin.f64 lambda1)) (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)))))
cost-diff	0	#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (.f64 (.f64 (fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (sin.f64 lambda1)) (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (sin.f64 lambda1)) (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))))))
cost-diff	0	(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (.f64 (.f64 (fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (sin.f64 lambda1)) (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (sin.f64 lambda1)) (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)))))))
cost-diff	0	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (.f64 (.f64 (fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (sin.f64 lambda1)) (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (sin.f64 lambda1)) (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))))))) R)
cost-diff	0	(*.f64 (sin.f64 phi1) (sin.f64 phi2))
cost-diff	0	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
cost-diff	0	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
cost-diff	0	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
cost-diff	0	#s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))
cost-diff	0	(+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
cost-diff	0	(acos.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
cost-diff	0	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
cost-diff	0	#s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1)))
cost-diff	0	#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))))
cost-diff	0	(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1)))))
cost-diff	0	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))))) R)
cost-diff	0	(.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2))
cost-diff	0	(fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
cost-diff	0	(acos.f64 (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
cost-diff	0	(.f64 (acos.f64 (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	83	969
0	98	969
1	150	969
2	290	969
3	705	969
4	1711	969
5	3717	969
6	7501	969
0	8001	969

Stop Event

1×	saturated
1×	node limit
1×	iter limit

Calls

Call 1

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

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

localize437.0ms (1.2%)

Memory

-50.9MiB live, 651.9MiB allocated; 131ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	3.8395079002345125	(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (.f64 (.f64 (fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (sin.f64 lambda1)) (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (sin.f64 lambda1)) (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)))))))
accuracy	14.697087894118242	(cos.f64 (-.f64 lambda1 lambda2))
accuracy	14.961409730306586	(cos.f64 (+.f64 lambda1 lambda2))
accuracy	27.691907891390375	#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (.f64 (.f64 (fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (sin.f64 lambda1)) (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (sin.f64 lambda1)) (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))))))
accuracy	0.20703125	(*.f64 (sin.f64 lambda1) (sin.f64 lambda2))
accuracy	0.25	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
accuracy	3.8395079002345125	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
accuracy	30.482982549906016	#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
accuracy	0.25	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
accuracy	3.8395079002345125	(acos.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
accuracy	14.697087894118242	(cos.f64 (-.f64 lambda1 lambda2))
accuracy	33.1847502792362	#s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))
accuracy	3.8395079002345125	(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1)))))
accuracy	14.697087894118242	(cos.f64 (-.f64 lambda2 lambda1))
accuracy	27.691907891390375	#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))))
accuracy	30.49848478888796	#s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1)))
accuracy	0.2265625	(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1))
accuracy	0.2328411340380844	(fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
accuracy	0.25	(.f64 (acos.f64 (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
accuracy	3.8395079002345125	(acos.f64 (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))

Samples

334.0ms	201×	1	valid
30.0ms	53×	0	valid
3.0ms	2×	2	valid

Compiler

Compiled 709 to 57 computations (92% saved)

Precisions

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

ival-cos: 71.0ms (24.1% of total)

adjust: 68.0ms (23.1% of total)

ival-mult: 62.0ms (21% of total)

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

ival-acos: 36.0ms (12.2% of total)

ival-add: 14.0ms (4.7% of total)

ival-sub: 4.0ms (1.4% of total)

ival-div: 2.0ms (0.7% of total)

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

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

series86.0ms (0.2%)

Memory

37.5MiB live, 177.6MiB allocated; 8ms collecting garbage

Counts

26 → 187

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable		Point	Expression
9.0ms	lambda1	@	-inf	((* (acos (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos phi2) (cos phi1)) (sin lambda1)) (sin lambda2)) (* (sin phi2) (sin phi1))))) R) (acos (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos phi2) (cos phi1)) (sin lambda1)) (sin lambda2)) (* (sin phi2) (sin phi1))))) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos phi2) (cos phi1)) (sin lambda1)) (sin lambda2)) (* (sin phi2) (sin phi1)))) (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (cos (- lambda2 lambda1))) (* (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)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (* (sin phi1) (sin phi2)) (* (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 lambda1) (sin lambda2)) (sin lambda1)) (sin lambda2)) (* (* (cos lambda1) (cos lambda2)) (cos (+ lambda1 lambda2)))) (cos (- lambda1 lambda2))) (cos phi1)) (+ (* (* (* (sin lambda1) (sin lambda2)) (sin lambda1)) (sin lambda2)) (* (* (cos lambda1) (cos lambda2)) (cos (+ lambda1 lambda2))))) (* (* (cos phi2) (cos phi1)) (sin lambda1)) (cos (- lambda2 lambda1)) (cos (- lambda1 lambda2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (* (sin lambda1) (sin lambda2)) (cos (+ lambda1 lambda2)))
8.0ms	phi2	@	inf	((* (acos (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos phi2) (cos phi1)) (sin lambda1)) (sin lambda2)) (* (sin phi2) (sin phi1))))) R) (acos (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos phi2) (cos phi1)) (sin lambda1)) (sin lambda2)) (* (sin phi2) (sin phi1))))) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos phi2) (cos phi1)) (sin lambda1)) (sin lambda2)) (* (sin phi2) (sin phi1)))) (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (cos (- lambda2 lambda1))) (* (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)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (* (sin phi1) (sin phi2)) (* (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 lambda1) (sin lambda2)) (sin lambda1)) (sin lambda2)) (* (* (cos lambda1) (cos lambda2)) (cos (+ lambda1 lambda2)))) (cos (- lambda1 lambda2))) (cos phi1)) (+ (* (* (* (sin lambda1) (sin lambda2)) (sin lambda1)) (sin lambda2)) (* (* (cos lambda1) (cos lambda2)) (cos (+ lambda1 lambda2))))) (* (* (cos phi2) (cos phi1)) (sin lambda1)) (cos (- lambda2 lambda1)) (cos (- lambda1 lambda2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (* (sin lambda1) (sin lambda2)) (cos (+ lambda1 lambda2)))
7.0ms	phi1	@	inf	((* (acos (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos phi2) (cos phi1)) (sin lambda1)) (sin lambda2)) (* (sin phi2) (sin phi1))))) R) (acos (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos phi2) (cos phi1)) (sin lambda1)) (sin lambda2)) (* (sin phi2) (sin phi1))))) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos phi2) (cos phi1)) (sin lambda1)) (sin lambda2)) (* (sin phi2) (sin phi1)))) (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (cos (- lambda2 lambda1))) (* (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)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (* (sin phi1) (sin phi2)) (* (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 lambda1) (sin lambda2)) (sin lambda1)) (sin lambda2)) (* (* (cos lambda1) (cos lambda2)) (cos (+ lambda1 lambda2)))) (cos (- lambda1 lambda2))) (cos phi1)) (+ (* (* (* (sin lambda1) (sin lambda2)) (sin lambda1)) (sin lambda2)) (* (* (cos lambda1) (cos lambda2)) (cos (+ lambda1 lambda2))))) (* (* (cos phi2) (cos phi1)) (sin lambda1)) (cos (- lambda2 lambda1)) (cos (- lambda1 lambda2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (* (sin lambda1) (sin lambda2)) (cos (+ lambda1 lambda2)))
7.0ms	phi1	@	-inf	((* (acos (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos phi2) (cos phi1)) (sin lambda1)) (sin lambda2)) (* (sin phi2) (sin phi1))))) R) (acos (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos phi2) (cos phi1)) (sin lambda1)) (sin lambda2)) (* (sin phi2) (sin phi1))))) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos phi2) (cos phi1)) (sin lambda1)) (sin lambda2)) (* (sin phi2) (sin phi1)))) (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (cos (- lambda2 lambda1))) (* (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)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (* (sin phi1) (sin phi2)) (* (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 lambda1) (sin lambda2)) (sin lambda1)) (sin lambda2)) (* (* (cos lambda1) (cos lambda2)) (cos (+ lambda1 lambda2)))) (cos (- lambda1 lambda2))) (cos phi1)) (+ (* (* (* (sin lambda1) (sin lambda2)) (sin lambda1)) (sin lambda2)) (* (* (cos lambda1) (cos lambda2)) (cos (+ lambda1 lambda2))))) (* (* (cos phi2) (cos phi1)) (sin lambda1)) (cos (- lambda2 lambda1)) (cos (- lambda1 lambda2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (* (sin lambda1) (sin lambda2)) (cos (+ lambda1 lambda2)))
7.0ms	phi2	@	-inf	((* (acos (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos phi2) (cos phi1)) (sin lambda1)) (sin lambda2)) (* (sin phi2) (sin phi1))))) R) (acos (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos phi2) (cos phi1)) (sin lambda1)) (sin lambda2)) (* (sin phi2) (sin phi1))))) (+ (* (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (cos phi1)) (+ (* (* (* (cos phi2) (cos phi1)) (sin lambda1)) (sin lambda2)) (* (sin phi2) (sin phi1)))) (* (* (cos lambda1) (cos lambda2)) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (cos (- lambda2 lambda1))) (* (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)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (* (sin phi1) (sin phi2)) (* (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 lambda1) (sin lambda2)) (sin lambda1)) (sin lambda2)) (* (* (cos lambda1) (cos lambda2)) (cos (+ lambda1 lambda2)))) (cos (- lambda1 lambda2))) (cos phi1)) (+ (* (* (* (sin lambda1) (sin lambda2)) (sin lambda1)) (sin lambda2)) (* (* (cos lambda1) (cos lambda2)) (cos (+ lambda1 lambda2))))) (* (* (cos phi2) (cos phi1)) (sin lambda1)) (cos (- lambda2 lambda1)) (cos (- lambda1 lambda2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (* (sin lambda1) (sin lambda2)) (cos (+ lambda1 lambda2)))

simplify374.0ms (1%)

Memory

-25.8MiB live, 211.9MiB allocated; 19ms collecting garbage

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	1004	7702
1	2991	7180
2	6575	7177
0	8524	7145
1	11021	6765
2	15990	6763
3	19595	6763
4	20917	6763
5	21092	6763
6	21096	6763

Stop Event

1×	saturated
1×	node limit

Counts

187 → 97

Calls

Call 1

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

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

rewrite655.0ms (1.8%)

Memory

23.1MiB live, 215.6MiB allocated; 19ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	83	708
1	98	708
2	110	708
3	126	708
4	137	708
5	145	708
6	150	708
7	154	708
8	158	708
0	158	656
1	427	461
2	3407	461
0	8028	444
1	9327	444
2	12427	444
3	16052	444
4	19141	444
5	21168	444
6	22117	444
7	22337	444

Stop Event

1×	saturated
1×	node limit
1×	saturated

Counts

26 → 224

Calls

Call 1

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

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

eval40.0ms (0.1%)

Memory: 0.3MiB live, 92.8MiB allocated; 7ms collecting garbage
Compiler: Compiled 13 914 to 1 398 computations (90% saved)

prune53.0ms (0.1%)

Memory

-28.9MiB live, 118.1MiB allocated; 7ms collecting garbage

Pruning

44 alts after pruning (40 fresh and 4 done)

	Pruned	Kept	Total
New	260	22	282
Fresh	15	18	33
Picked	4	1	5
Done	0	3	3
Total	279	44	323

Accuracy

93.9%

Counts

323 → 44

Alt Table

Click to see full alt table

Status	Accuracy	Program
	73.2%	(.f64 (-.f64 (PI.f64) (acos.f64 (/.f64 (fma.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 phi1)) (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi2)))) (neg.f64 (fma.f64 (fma.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi2)) (sin.f64 phi2))))))) R)
	93.6%	(.f64 (acos.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2)) (cos.f64 lambda1) (fma.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 lambda1) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	83.4%	(.f64 (acos.f64 (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 #s(approx ( (* (cos phi2) (cos phi1)) (sin lambda1)) (.f64 (sin.f64 lambda1) (cos.f64 phi2))) (sin.f64 lambda2) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	73.4%	(.f64 (acos.f64 (/.f64 (fma.f64 (.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 phi2))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi2)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))))) R)
	73.5%	(.f64 (acos.f64 (/.f64 (fma.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (sin.f64 phi2)) (sin.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (.f64 (.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (sin.f64 phi2)) (sin.f64 phi1))))) R)
	37.7%	(.f64 (acos.f64 (/.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 #s(approx (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (.f64 (cos.f64 phi2) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi2)) (sin.f64 phi2)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))))) R)
	73.5%	(.f64 (acos.f64 (/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	73.6%	(.f64 (acos.f64 (/.f64 (.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))) R)
	46.7%	(.f64 (acos.f64 (/.f64 #s(approx (+ ( (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (fma.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda2)) (cos.f64 lambda2)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (cos.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi2))) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi1) (sin.f64 phi1)))))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))))) R)
▶	41.9%	(.f64 (acos.f64 (/.f64 #s(approx (+ ( (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi1) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))))) R)
	93.5%	(.f64 (acos.f64 (-.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (fma.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 lambda1) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (fma.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 lambda1) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (fma.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 lambda1) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (fma.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 lambda1) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) R)
✓	93.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	93.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (-.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))) R)
	49.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (cos.f64 phi2))))) R)
	54.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (cos.f64 phi1))))) R)
	39.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) R)
	44.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
✓	42.2%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
✓	42.4%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi1) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	37.6%	(.f64 (acos.f64 #s(approx (/ (+ ( (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2)))) (fma.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 (sin.f64 phi1) phi2)))) R)
	40.3%	(.f64 (acos.f64 #s(approx (/ (+ ( (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) R)
▶	93.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
▶	47.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))) R)
	57.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda1)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	49.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))) R)
	49.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (cos.f64 phi2)))) R)
	55.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (cos.f64 phi1)))) R)
	49.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	49.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda2)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	32.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
	42.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (.f64 (.f64 (fma.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (sin.f64 lambda1)) (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (fma.f64 (.f64 #s(approx ( (sin lambda1) (sin lambda2)) (.f64 (sin.f64 lambda2) lambda1)) (sin.f64 lambda1)) (sin.f64 lambda2) (.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))))))) R)
	44.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda2 lambda1))) (cos.f64 phi1)) (cos.f64 (+.f64 lambda2 lambda1))))) R)
	44.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (/.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (fma.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda1)) (.f64 (.f64 (cos.f64 (+.f64 lambda2 lambda1)) (cos.f64 lambda1)) (cos.f64 lambda2)))) (fma.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 (+.f64 lambda2 lambda1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda2 lambda1))) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (cos.f64 (+.f64 lambda2 lambda1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (sin.f64 lambda2)) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (sin.f64 lambda1))) (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (sin.f64 lambda1)) (sin.f64 lambda2))))) (fma.f64 (.f64 (.f64 (cos.f64 (+.f64 lambda2 lambda1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (-.f64 (.f64 (.f64 (cos.f64 (+.f64 lambda2 lambda1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (sin.f64 lambda1)) (sin.f64 lambda2))) (.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (sin.f64 lambda2)) (.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (sin.f64 lambda1))))))) R)
✓	44.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))) R)
	29.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
	30.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda2))))) R)
	35.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))))) R)
▶	31.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	31.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
	31.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (-.f64 (/.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (-.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (/.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (-.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))))) R)
	31.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (+.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 lambda1)) (cos.f64 lambda2) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (-.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) (/.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 lambda1)) (cos.f64 lambda2) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (-.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))))))) R)
	13.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) #s(approx (cos (- lambda2 lambda1)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
	16.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda2))))) R)
▶	19.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))))) R)

Compiler

Compiled 4 958 to 2 571 computations (48.1% saved)

simplify50.0ms (0.1%)

Memory

-5.5MiB live, 88.8MiB allocated; 4ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score	Program
cost-diff	0	#s(approx (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi1) (cos.f64 phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))
cost-diff	0	(/.f64 #s(approx (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi1) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))))
cost-diff	0	(acos.f64 (/.f64 #s(approx (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi1) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)))))
cost-diff	0	(.f64 (acos.f64 (/.f64 #s(approx (+ ( (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi1) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))))) R)
cost-diff	0	(fma.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2))
cost-diff	0	#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))
cost-diff	0	(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2))))
cost-diff	0	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))) R)
cost-diff	0	#s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))
cost-diff	0	#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))
cost-diff	0	(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))
cost-diff	0	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
cost-diff	0	#s(approx (* (cos phi1) (cos (- lambda2 lambda1))) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1)))
cost-diff	0	#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))))
cost-diff	0	(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1)))))
cost-diff	0	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))))) R)
cost-diff	0	(fma.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
cost-diff	0	#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
cost-diff	0	(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
cost-diff	0	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	95	1256
0	110	1256
1	220	1152
2	652	1136
3	3093	1136
0	8111	1136

Stop Event

1×	saturated
1×	node limit
1×	iter limit

Calls

Call 1

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

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

localize1.2s (3.3%)

Memory

129.6MiB live, 1 012.8MiB allocated; 1.2s collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	0.36947250976844204	(/.f64 #s(approx (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi1) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))))
accuracy	3.8395079002345125	(acos.f64 (/.f64 #s(approx (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi1) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)))))
accuracy	14.697087894118242	(cos.f64 (-.f64 lambda2 lambda1))
accuracy	27.72435622692585	#s(approx (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi1) (cos.f64 phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))
accuracy	0.11328125	(*.f64 (sin.f64 phi1) phi2)
accuracy	0.25	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))) R)
accuracy	3.8395079002345125	(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2))))
accuracy	28.872028348582347	#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))
accuracy	0.25	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
accuracy	3.8395079002345125	(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))
accuracy	27.691907891390375	#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))
accuracy	30.49848478888796	#s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))
accuracy	3.8395079002345125	(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1)))))
accuracy	26.00750518079989	#s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))
accuracy	27.691907891390375	#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))))
accuracy	30.49848478888796	#s(approx (* (cos phi1) (cos (- lambda2 lambda1))) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1)))
accuracy	0.20703125	(*.f64 (sin.f64 phi1) (sin.f64 phi2))
accuracy	0.24675751953688405	(fma.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
accuracy	0.25	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
accuracy	3.8395079002345125	(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))

Samples

1.1s	201×	1	valid
36.0ms	53×	0	valid
4.0ms	2×	2	valid

Compiler

Compiled 926 to 66 computations (92.9% saved)

Precisions

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

ival-add: 589.0ms (54.7% of total)

ival-mult: 120.0ms (11.1% of total)

ival-cos: 113.0ms (10.5% of total)

ival-acos: 110.0ms (10.2% of total)

ival-sin: 74.0ms (6.9% of total)

adjust: 62.0ms (5.8% of total)

ival-sub: 6.0ms (0.6% of total)

ival-div: 2.0ms (0.2% of total)

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

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

series232.0ms (0.6%)

Memory

14.9MiB live, 310.8MiB allocated; 61ms collecting garbage

Counts

24 → 162

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable		Point	Expression
100.0ms	lambda1	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+ (* (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))) (* (cos phi2) (cos phi1))) (* (sin phi1) (sin phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (cos (- lambda2 lambda1))) (* (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 (- lambda2 lambda1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+ (* (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))) (cos phi1)) (* (sin phi1) phi2)) (* (acos (/ (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2))))) R) (acos (/ (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2))))) (/ (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (* (sin phi1) (sin phi2)) (cos (- lambda2 lambda1)) (* (sin phi1) phi2) (cos (- lambda2 lambda1)))
39.0ms	phi1	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+ (* (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))) (* (cos phi2) (cos phi1))) (* (sin phi1) (sin phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (cos (- lambda2 lambda1))) (* (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 (- lambda2 lambda1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+ (* (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))) (cos phi1)) (* (sin phi1) phi2)) (* (acos (/ (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2))))) R) (acos (/ (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2))))) (/ (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (* (sin phi1) (sin phi2)) (cos (- lambda2 lambda1)) (* (sin phi1) phi2) (cos (- lambda2 lambda1)))
12.0ms	phi2	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+ (* (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))) (* (cos phi2) (cos phi1))) (* (sin phi1) (sin phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (cos (- lambda2 lambda1))) (* (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 (- lambda2 lambda1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+ (* (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))) (cos phi1)) (* (sin phi1) phi2)) (* (acos (/ (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2))))) R) (acos (/ (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2))))) (/ (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (* (sin phi1) (sin phi2)) (cos (- lambda2 lambda1)) (* (sin phi1) phi2) (cos (- lambda2 lambda1)))
10.0ms	lambda2	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+ (* (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))) (* (cos phi2) (cos phi1))) (* (sin phi1) (sin phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (cos (- lambda2 lambda1))) (* (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 (- lambda2 lambda1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+ (* (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))) (cos phi1)) (* (sin phi1) phi2)) (* (acos (/ (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2))))) R) (acos (/ (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2))))) (/ (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (* (sin phi1) (sin phi2)) (cos (- lambda2 lambda1)) (* (sin phi1) phi2) (cos (- lambda2 lambda1)))
10.0ms	phi2	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+ (* (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))) (* (cos phi2) (cos phi1))) (* (sin phi1) (sin phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (cos (- lambda2 lambda1))) (* (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 (- lambda2 lambda1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+ (* (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))) (cos phi1)) (* (sin phi1) phi2)) (* (acos (/ (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2))))) R) (acos (/ (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2))))) (/ (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (* (sin phi1) (sin phi2)) (cos (- lambda2 lambda1)) (* (sin phi1) phi2) (cos (- lambda2 lambda1)))

simplify684.0ms (1.8%)

Memory

10.3MiB live, 291.9MiB allocated; 16ms collecting garbage

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	1106	13725
1	3334	12824
0	8306	12808
1	10596	12491
2	14447	12489
3	17200	12489
4	18815	12489
5	20098	12489
6	21285	12489
7	22136	12489
8	22572	12489
9	22702	12489
10	22718	12489

Stop Event

1×	saturated
1×	node limit

Counts

162 → 92

Calls

Call 1

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

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

rewrite2.0s (5.5%)

Memory

-9.5MiB live, 312.3MiB allocated; 27ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	95	983
1	110	983
2	119	983
3	131	983
4	140	983
5	152	983
6	156	983
7	159	983
0	159	757
1	569	695
2	4613	695
0	9871	695
1	11282	695
2	15185	695
3	19727	695
4	23463	695
5	25682	695
6	26755	695
7	27133	695
8	27200	695

Stop Event

1×	saturated
1×	node limit
1×	saturated

Counts

24 → 137

Calls

Call 1

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

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

eval91.0ms (0.2%)

Memory: -12.8MiB live, 147.4MiB allocated; 82ms collecting garbage
Compiler: Compiled 30 222 to 1 846 computations (93.9% saved)

prune101.0ms (0.3%)

Memory

39.3MiB live, 274.4MiB allocated; 13ms collecting garbage

Pruning

45 alts after pruning (37 fresh and 8 done)

	Pruned	Kept	Total
New	308	9	317
Fresh	7	28	35
Picked	1	4	5
Done	0	4	4
Total	316	45	361

Accuracy

94.2%

Counts

361 → 45

Alt Table

Click to see full alt table

Status	Accuracy	Program
	73.2%	(.f64 (-.f64 (PI.f64) (acos.f64 (/.f64 (fma.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi2)) (cos.f64 phi1)) (cos.f64 phi1)) (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi2)))) (neg.f64 (fma.f64 (fma.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi2)) (sin.f64 phi2))))))) R)
	93.6%	(.f64 (acos.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2)) (cos.f64 lambda1) (fma.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 lambda1) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	83.4%	(.f64 (acos.f64 (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 #s(approx ( (* (cos phi2) (cos phi1)) (sin lambda1)) (.f64 (sin.f64 lambda1) (cos.f64 phi2))) (sin.f64 lambda2) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	37.7%	(.f64 (acos.f64 (/.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 #s(approx (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (.f64 (cos.f64 phi2) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi2)) (sin.f64 phi2)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))))) R)
	73.5%	(.f64 (acos.f64 (/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	73.6%	(.f64 (acos.f64 (/.f64 (.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))) R)
	73.4%	(.f64 (acos.f64 (/.f64 #s(approx (+ ( (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (fma.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi2))) (sin.f64 phi2)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))))) R)
	46.7%	(.f64 (acos.f64 (/.f64 #s(approx (+ ( (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (fma.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda2)) (cos.f64 lambda2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi1)) (cos.f64 phi1))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi2)) (cos.f64 phi2)) (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi2))) (sin.f64 phi2)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (sin.f64 phi1)) (sin.f64 phi2))))) R)
	93.5%	(.f64 (acos.f64 (-.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (fma.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 lambda1) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (fma.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 lambda1) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (fma.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 lambda1) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (fma.f64 (.f64 (sin.f64 lambda2) (cos.f64 phi2)) (.f64 (sin.f64 lambda1) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) R)
✓	93.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	93.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (-.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))) R)
	49.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (cos.f64 phi2))))) R)
	54.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (cos.f64 phi1))))) R)
	39.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))) R)
	44.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
✓	42.2%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
✓	42.4%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi1) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	37.6%	(.f64 (acos.f64 #s(approx (/ (+ ( (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2)))) (fma.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 (sin.f64 phi1) phi2)))) R)
	40.3%	(.f64 (acos.f64 #s(approx (/ (+ ( (* (* (cos (- lambda2 lambda1)) (cos (- lambda2 lambda1))) (cos (- lambda2 lambda1))) (* (* (* (cos phi2) (cos phi1)) (* (cos phi2) (cos phi1))) (* (cos phi2) (cos phi1)))) (* (* (* (sin phi1) (sin phi1)) (sin phi1)) (* (* (sin phi2) (sin phi2)) (sin phi2)))) (+ (* (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (- (* (* (cos (- lambda2 lambda1)) (cos phi1)) (cos phi2)) (* (sin phi2) (sin phi1)))) (* (* (* (sin phi2) (sin phi1)) (sin phi1)) (sin phi2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) R)
	57.1%	(.f64 (acos.f64 #s(approx (+ ( (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))) (* (cos phi2) (cos phi1))) (* (sin phi1) (sin phi2))) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda1)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	49.9%	(.f64 (acos.f64 #s(approx (+ ( (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))) (* (cos phi2) (cos phi1))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 phi2) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R)
	55.0%	(.f64 (acos.f64 #s(approx (+ ( (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))) (* (cos phi2) (cos phi1))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R)
✓	93.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
✓	47.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))) R)
	49.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))))) R)
	37.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (/.f64 (fma.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) phi2) phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi1) phi2) (.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 phi1)) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1) (.f64 (.f64 (sin.f64 phi1) phi2) (-.f64 (.f64 (sin.f64 phi1) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))))) R)
	49.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	28.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (+ (* (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 (sin.f64 phi1) phi2 (*.f64 (cos.f64 phi1) (cos.f64 lambda1)))))) R)
	47.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (+ (* (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))) (cos phi1)) (* (sin phi1) phi2)) (.f64 (fma.f64 (cos.f64 phi1) (/.f64 (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) phi2) (sin.f64 phi1)) phi2)))) R)
	11.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (+ (* (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))) (cos phi1)) (* (sin phi1) phi2)) (*.f64 (sin.f64 phi1) phi2)))) R)
	49.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda2)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	32.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
	44.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (/.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda2 lambda1))) (cos.f64 phi1)) (cos.f64 (+.f64 lambda2 lambda1))))) R)
	44.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (/.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (fma.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda1)) (.f64 (.f64 (cos.f64 (+.f64 lambda2 lambda1)) (cos.f64 lambda1)) (cos.f64 lambda2)))) (fma.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 (+.f64 lambda2 lambda1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (cos.f64 (+.f64 lambda2 lambda1))) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (cos.f64 (+.f64 lambda2 lambda1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (sin.f64 lambda2)) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (sin.f64 lambda1))) (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (sin.f64 lambda1)) (sin.f64 lambda2))))) (fma.f64 (.f64 (.f64 (cos.f64 (+.f64 lambda2 lambda1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (-.f64 (.f64 (.f64 (cos.f64 (+.f64 lambda2 lambda1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (sin.f64 lambda1)) (sin.f64 lambda2))) (.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (sin.f64 lambda2)) (.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (sin.f64 lambda1))))))) R)
✓	44.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))) R)
	29.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
	30.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda2))))) R)
	35.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))))) R)
✓	31.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	31.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
	31.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (-.f64 (/.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (-.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (/.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (-.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))))) R)
	31.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (+.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 lambda1)) (cos.f64 lambda2) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (-.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) (/.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (fma.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 lambda1)) (cos.f64 lambda2) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (-.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))))))) R)
	13.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) #s(approx (cos (- lambda2 lambda1)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
	16.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda2))))) R)
✓	19.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))))) R)

Compiler

Compiled 7 690 to 2 003 computations (74% saved)

regimes974.0ms (2.6%)

Memory

15.7MiB live, 719.9MiB allocated; 54ms collecting garbage

Counts

85 → 1

Calls

Call 1

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

Outputs

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

Calls

10 calls:

110.0ms	(-.f64 lambda1 lambda2)
99.0ms	R
46.0ms	lambda1
40.0ms	phi1
28.0ms	lambda2

Results

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

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes161.0ms (0.4%)

Memory

-13.1MiB live, 466.4MiB allocated; 38ms collecting garbage

Counts

52 → 1

Calls

Call 1

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

Calls

10 calls:

18.0ms	phi2
17.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
17.0ms	lambda1
17.0ms	phi1
16.0ms	(-.f64 lambda1 lambda2)

Results

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

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes526.0ms (1.4%)

Memory

-14.8MiB live, 407.4MiB allocated; 23ms collecting garbage

Counts

50 → 1

Calls

Call 1

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

Outputs

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

Calls

10 calls:

357.0ms	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
44.0ms	R
20.0ms	lambda2
16.0ms	(cos.f64 (-.f64 lambda1 lambda2))
15.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
93.7%	1	`(-.f64 lambda1 lambda2)`
93.7%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
93.7%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
93.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)`
93.7%	1	`R`
93.7%	1	`lambda1`
93.7%	1	`phi2`
93.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)))))`
93.7%	1	`lambda2`
93.7%	1	`phi1`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes496.0ms (1.3%)

Memory

25.9MiB live, 406.0MiB allocated; 24ms collecting garbage

Counts

48 → 1

Calls

Call 1

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

Calls

10 calls:

340.0ms	lambda2
41.0ms	phi2
17.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)
15.0ms	lambda1
14.0ms	(cos.f64 (-.f64 lambda1 lambda2))

Results

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

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes645.0ms (1.7%)

Memory

15.3MiB live, 393.4MiB allocated; 19ms collecting garbage

Counts

47 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

10 calls:

459.0ms	R
58.0ms	lambda2
32.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
15.0ms	lambda1
14.0ms	(-.f64 lambda1 lambda2)

Results

Accuracy	Segments	Branch
75.2%	2	`(-.f64 lambda1 lambda2)`
75.4%	2	`lambda1`
73.6%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
73.6%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
73.6%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
73.6%	1	`R`
78.3%	3	`lambda2`
83.9%	3	`phi2`
73.6%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
83.6%	3	`phi1`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes18.0ms (0%)

Memory

-34.7MiB live, 58.8MiB allocated; 5ms collecting garbage

Counts

44 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

14.0ms

phi2

Results

Accuracy	Segments	Branch
83.9%	3	`phi2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes12.0ms (0%)

Memory

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

Counts

40 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

10.0ms

phi2

Results

Accuracy	Segments	Branch
83.9%	3	`phi2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes14.0ms (0%)

Memory

-9.2MiB live, 44.2MiB allocated; 2ms collecting garbage

Counts

39 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

10.0ms

phi2

Results

Accuracy	Segments	Branch
83.8%	3	`phi2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes132.0ms (0.4%)

Memory

-41.2MiB live, 299.9MiB allocated; 45ms collecting garbage

Counts

36 → 4

Calls

Call 1

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

Calls

10 calls:

24.0ms	R
22.0ms	(-.f64 lambda1 lambda2)
12.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)
11.0ms	phi1
11.0ms	phi2

Results

Accuracy	Segments	Branch
63.0%	4	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
66.2%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
61.0%	3	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
63.0%	4	`R`
61.0%	3	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
68.8%	3	`(-.f64 lambda1 lambda2)`
75.4%	4	`lambda1`
78.0%	4	`lambda2`
75.9%	3	`phi1`
77.7%	4	`phi2`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes10.0ms (0%)

Memory

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

Counts

29 → 4

Calls

Call 1

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

Calls

1 calls:

8.0ms

lambda2

Results

Accuracy	Segments	Branch
77.9%	4	`lambda2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes16.0ms (0%)

Memory

-17.1MiB live, 30.0MiB allocated; 14ms collecting garbage

Counts

27 → 3

Calls

Call 1

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

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

Calls

1 calls:

15.0ms

lambda2

Results

Accuracy	Segments	Branch
76.2%	3	`lambda2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes26.0ms (0.1%)

Memory

-8.6MiB live, 84.8MiB allocated; 5ms collecting garbage

Counts

26 → 3

Calls

Call 1

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

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

Calls

3 calls:

8.0ms	phi1
8.0ms	lambda2
7.0ms	phi2

Results

Accuracy	Segments	Branch
66.5%	3	`phi1`
75.9%	3	`phi2`
75.5%	3	`lambda2`

Compiler

Compiled 3 to 15 computations (-400% saved)

regimes24.0ms (0.1%)

Memory

30.6MiB live, 76.5MiB allocated; 3ms collecting garbage

Counts

25 → 2

Calls

Call 1

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

Outputs

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

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

Calls

3 calls:

9.0ms	lambda2
7.0ms	lambda1
7.0ms	phi2

Results

Accuracy	Segments	Branch
58.3%	3	`lambda1`
55.0%	1	`lambda2`
67.4%	2	`phi2`

Compiler

Compiled 3 to 15 computations (-400% saved)

regimes627.0ms (1.7%)

Memory

-4.5MiB live, 185.3MiB allocated; 16ms collecting garbage

Counts

24 → 2

Calls

Call 1

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

Outputs

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

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

Calls

8 calls:

547.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
28.0ms	R
14.0ms	phi2
9.0ms	(cos.f64 (-.f64 lambda1 lambda2))
7.0ms	(-.f64 lambda1 lambda2)

Results

Accuracy	Segments	Branch
44.9%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
44.9%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
47.5%	2	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
47.5%	2	`R`
57.2%	2	`phi1`
46.6%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
44.9%	1	`(-.f64 lambda1 lambda2)`
57.3%	2	`phi2`

Compiler

Compiled 62 to 76 computations (-22.6% saved)

regimes15.0ms (0%)

Memory

-6.4MiB live, 41.2MiB allocated; 7ms collecting garbage

Counts

17 → 2

Calls

Call 1

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

Outputs

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

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

Calls

2 calls:

9.0ms	phi2
5.0ms	phi1

Results

Accuracy	Segments	Branch
57.1%	2	`phi1`
57.2%	2	`phi2`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes25.0ms (0.1%)

Memory

0.5MiB live, 94.0MiB allocated; 5ms collecting garbage

Counts

8 → 1

Calls

Call 1

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 28 to 49 computations (-75% saved)

regimes67.0ms (0.2%)

Memory

-1.6MiB live, 98.9MiB allocated; 28ms collecting garbage

Counts

7 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

10 calls:

40.0ms	lambda2
4.0ms	phi1
3.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)
3.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
3.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
37.2%	2	`(-.f64 lambda1 lambda2)`
44.9%	3	`lambda1`
44.7%	3	`lambda2`
35.5%	1	`phi2`
39.9%	3	`(cos.f64 (-.f64 lambda1 lambda2))`
35.5%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
35.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)))))`
41.4%	2	`phi1`
35.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)`
35.5%	1	`R`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes403.0ms (1.1%)

Memory

-23.3MiB live, 24.0MiB allocated; 2ms collecting garbage

Counts

5 → 2

Calls

Call 1

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

Outputs

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

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

Calls

3 calls:

2.0ms	lambda1
2.0ms	phi1
2.0ms	lambda2

Results

Accuracy	Segments	Branch
41.4%	2	`phi1`
41.8%	3	`lambda2`
35.5%	1	`lambda1`

Compiler

Compiled 3 to 15 computations (-400% saved)

regimes21.0ms (0.1%)

Memory

34.2MiB live, 80.1MiB allocated; 2ms collecting garbage

Counts

4 → 2

Calls

Call 1

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

Outputs

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

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

Calls

10 calls:

3.0ms	R
2.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
2.0ms	(.f64 (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	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
2.0ms	phi1

Results

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

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes4.0ms (0%)

Memory

14.5MiB live, 14.5MiB 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 phi1) (cos (- lambda2 lambda1))) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))))) R)

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

Outputs

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

Calls

2 calls:

2.0ms	phi2
2.0ms	(cos.f64 (-.f64 lambda1 lambda2))

Results

Accuracy	Segments	Branch
27.0%	1	`phi2`
27.0%	1	`(cos.f64 (-.f64 lambda1 lambda2))`

Compiler

Compiled 5 to 12 computations (-140% saved)

regimes19.0ms (0.1%)

Memory

-36.9MiB live, 57.8MiB allocated; 7ms 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 phi1) (cos (- lambda2 lambda1))) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))))) R)

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

Outputs

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

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

Calls

10 calls:

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

Results

Accuracy	Segments	Branch
20.8%	2	`R`
19.0%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
20.8%	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)`
21.6%	2	`(-.f64 lambda1 lambda2)`
19.0%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
26.8%	3	`lambda2`
19.0%	1	`phi1`
27.0%	3	`lambda1`
19.0%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
19.0%	1	`phi2`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes7.0ms (0%)

Memory

30.0MiB live, 30.0MiB 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 phi1) (cos (- lambda2 lambda1))) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))))) R)

Outputs

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

Calls

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

Results

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

Compiler

Compiled 29 to 45 computations (-55.2% saved)

bsearch187.0ms (0.5%)

Memory

-15.1MiB live, 457.4MiB allocated; 27ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
80.0ms	5.627523283664381e-14	3.3078028434846104e-11
96.0ms	-5.4251614212659764e-5	-9.826080112364669e-33

Samples

146.0ms	264×	1	valid
10.0ms	40×	0	valid

Compiler

Compiled 1 124 to 956 computations (14.9% saved)

Precisions

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

ival-sin: 50.0ms (35.8% of total)

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

ival-mult: 15.0ms (10.8% of total)

adjust: 14.0ms (10% of total)

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

ival-sub: 6.0ms (4.3% of total)

ival-add: 3.0ms (2.2% of total)

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

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

bsearch3.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	5.627523283664381e-14	3.3078028434846104e-11
2.0ms	-5.4251614212659764e-5	-9.826080112364669e-33

Compiler

Compiled 1 200 to 994 computations (17.2% saved)

bsearch3.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	5.627523283664381e-14	3.3078028434846104e-11
2.0ms	-5.4251614212659764e-5	-9.826080112364669e-33

Compiler

Compiled 1 200 to 994 computations (17.2% saved)

bsearch110.0ms (0.3%)

Memory

-1.7MiB live, 236.0MiB allocated; 25ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
38.0ms	5.627523283664381e-14	3.3078028434846104e-11
67.0ms	-5.4251614212659764e-5	-9.826080112364669e-33

Samples

93.0ms	143×	1	valid
3.0ms	17×	0	valid

Compiler

Compiled 991 to 861 computations (13.1% saved)

Precisions

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

ival-sin: 28.0ms (32% of total)

ival-mult: 21.0ms (24% of total)

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

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

adjust: 7.0ms (8% of total)

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

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

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

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

bsearch1.1s (2.9%)

Memory

3.4MiB live, 480.3MiB allocated; 32ms collecting garbage

Algorithm

3×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
101.0ms	1.8449173092165522e-34	2.832929834863805e-19
0.0ms	-0.002394663926517805	-0.002352346602669702
954.0ms	-9.331217660794291e+135	-1.8391419667514296e+133

Samples

999.0ms	236×	1	valid
13.0ms	52×	0	valid

Compiler

Compiled 1 336 to 1 087 computations (18.6% saved)

Precisions

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

ival-cos: 44.0ms (37.1% of total)

ival-sin: 31.0ms (26.1% of total)

ival-mult: 16.0ms (13.5% of total)

adjust: 12.0ms (10.1% of total)

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

ival-sub: 3.0ms (2.5% of total)

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

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

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

bsearch3.0ms (0%)

Memory

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

Algorithm

3×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	1.8449173092165522e-34	2.832929834863805e-19
0.0ms	-0.002394663926517805	-0.002352346602669702
1.0ms	-9.331217660794291e+135	-1.8391419667514296e+133

Compiler

Compiled 1 336 to 1 087 computations (18.6% saved)

bsearch1.8s (5%)

Memory

-7.2MiB live, 417.7MiB allocated; 40ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
894.0ms	2.832929834863805e-19	107169.90348858126
914.0ms	-2.1734424018577397e-12	-2.712513364989203e-18

Samples

1.4s	211×	1	valid
25.0ms	109×	0	valid

Compiler

Compiled 1 342 to 1 105 computations (17.7% saved)

Precisions

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

adjust: 730.0ms (52.2% of total)

ival-sin: 480.0ms (34.3% of total)

ival-cos: 138.0ms (9.9% of total)

ival-mult: 36.0ms (2.6% of total)

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

ival-sub: 3.0ms (0.2% of total)

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

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

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

bsearch361.0ms (1%)

Memory

8.8MiB live, 193.0MiB allocated; 25ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
182.0ms	3.3078028434846104e-11	0.0006596696976634351
173.0ms	-5.4251614212659764e-5	-9.826080112364669e-33

Samples

340.0ms	161×	1	valid
6.0ms	31×	0	valid

Compiler

Compiled 1 342 to 1 105 computations (17.7% saved)

Precisions

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

ival-cos: 187.0ms (55.7% of total)

ival-mult: 93.0ms (27.7% of total)

adjust: 30.0ms (8.9% of total)

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

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

ival-sub: 2.0ms (0.6% of total)

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

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

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

bsearch214.0ms (0.6%)

Memory

-27.1MiB live, 73.6MiB allocated; 18ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
197.0ms	0.0006596696976634351	0.0012160407116541731

Samples

192.0ms	53×	1	valid
2.0ms	11×	0	valid

Compiler

Compiled 262 to 225 computations (14.1% saved)

Precisions

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

ival-cos: 176.0ms (92.2% of total)

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

adjust: 3.0ms (1.6% of total)

ival-mult: 3.0ms (1.6% of total)

ival-acos: 2.0ms (1% of total)

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

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

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

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

bsearch15.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
14.0ms	0.0006596696976634351	0.0012160407116541731

Samples

11.0ms	27×	1	valid
1.0ms	5×	0	valid

Compiler

Compiled 238 to 209 computations (12.2% saved)

Precisions

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

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

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

adjust: 1.0ms (9.5% of total)

ival-acos: 1.0ms (9.5% of total)

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

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

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

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

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

bsearch75.0ms (0.2%)

Memory

-13.8MiB live, 31.4MiB allocated; 7ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
73.0ms	0.0006596696976634351	0.0012160407116541731

Samples

69.0ms	41×	1	valid
1.0ms	7×	0	valid

Compiler

Compiled 238 to 209 computations (12.2% saved)

Precisions

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

ival-cos: 58.0ms (85.2% of total)

ival-sin: 3.0ms (4.4% of total)

adjust: 2.0ms (2.9% of total)

ival-mult: 2.0ms (2.9% of total)

ival-acos: 2.0ms (2.9% of total)

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

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

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

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

bsearch374.0ms (1%)

Memory

-10.5MiB live, 140.3MiB allocated; 70ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
271.0ms	5.585196607492033e-25	1.6672265925513544e-10
67.0ms	-1497307228195.8264	-2.4821887894077645e-19

Samples

296.0ms	186×	1	valid
28.0ms	150×	0	valid

Compiler

Compiled 1 282 to 1 075 computations (16.1% saved)

Precisions

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

ival-cos: 250.0ms (81% of total)

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

ival-mult: 12.0ms (3.9% of total)

adjust: 10.0ms (3.2% of total)

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

ival-sub: 2.0ms (0.6% of total)

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

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

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

bsearch76.0ms (0.2%)

Memory

48.0MiB live, 138.9MiB allocated; 21ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
72.0ms	-2.0885764768565706e-5	-1.6084735460196756e-13

Samples

61.0ms	123×	1	valid
4.0ms	21×	0	valid

Compiler

Compiled 580 to 475 computations (18.1% saved)

Precisions

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

ival-cos: 21.0ms (36.3% of total)

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

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

ival-mult: 7.0ms (12.1% of total)

adjust: 6.0ms (10.4% of total)

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

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

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

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

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.9980869348140636	0.9992595522926252

Compiler

Compiled 22 to 25 computations (-13.6% saved)

bsearch19.0ms (0.1%)

Memory

-11.8MiB live, 34.7MiB allocated; 8ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	5.585196607492033e-25	1.6672265925513544e-10
17.0ms	-1497307228195.8264	-2.4821887894077645e-19

Samples

8.0ms	18×	1	valid
3.0ms	14×	0	valid

Compiler

Compiled 1 492 to 1 075 computations (27.9% saved)

Precisions

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

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

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

adjust: 1.0ms (10.7% of total)

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

ival-acos: 1.0ms (10.7% of total)

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

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

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

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

simplify80.0ms (0.2%)

Memory

12.8MiB live, 110.8MiB allocated; 19ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	241	1472
1	365	1472
2	571	1472
3	1243	1472
4	2774	1472
5	5570	1472

Stop Event

1×	node limit

Calls

Call 1

Inputs
(.f64 (acos.f64 (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2) (.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)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(if (<=.f64 phi2 #s(literal -8500259669165361/2361183241434822606848 binary64)) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R) (if (<=.f64 phi2 #s(literal 2553251331026097/77371252455336267181195264 binary64)) (.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (cos.f64 phi1))))) R) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)))
(if (<=.f64 phi2 #s(literal -8500259669165361/2361183241434822606848 binary64)) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R) (if (<=.f64 phi2 #s(literal 2553251331026097/77371252455336267181195264 binary64)) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))) R) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)))
(if (<=.f64 phi2 #s(literal -8500259669165361/2361183241434822606848 binary64)) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R) (if (<=.f64 phi2 #s(literal 2553251331026097/77371252455336267181195264 binary64)) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))) R) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)))
(if (<=.f64 phi2 #s(literal -4533471823554859/151115727451828646838272 binary64)) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R) (if (<=.f64 phi2 #s(literal 2050338190066411/77371252455336267181195264 binary64)) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)))
(if (<=.f64 lambda2 #s(literal -21999999999999999483034433280792250702873073898465757623012114819665147993056844762457170375726229656817119530788934493496744247033856 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R) (if (<=.f64 lambda2 #s(literal -2720894750872159/1152921504606846976 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (cos.f64 phi2)))) R) (if (<=.f64 lambda2 #s(literal 5815372481559007/20769187434139310514121985316880384 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (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 lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (cos.f64 phi2)))) R))))
(if (<=.f64 lambda2 #s(literal -21999999999999999483034433280792250702873073898465757623012114819665147993056844762457170375726229656817119530788934493496744247033856 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R) (if (<=.f64 lambda2 #s(literal -2720894750872159/1152921504606846976 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R) (if (<=.f64 lambda2 #s(literal 5815372481559007/20769187434139310514121985316880384 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (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 lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R))))
(if (<=.f64 lambda2 #s(literal -5323142168927135/2475880078570760549798248448 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R) (if (<=.f64 lambda2 #s(literal 8264141345021879/2361183241434822606848 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (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)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda2)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)))
(if (<=.f64 phi2 #s(literal -3423715700080493/1180591620717411303424 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R) (if (<=.f64 phi2 #s(literal 6407306843957535/604462909807314587353088 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)))
(if (<=.f64 phi2 #s(literal 4150517416584649/4611686018427387904 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) R))
(if (<=.f64 phi2 #s(literal 662929865148937/576460752303423488 binary64)) (.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) R))
(if (<=.f64 phi2 #s(literal 760928193040519/1152921504606846976 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) R))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))) R)
(if (<=.f64 lambda1 #s(literal -1851167661284901/37778931862957161709568 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))))) R) (if (<=.f64 lambda1 #s(literal 3191564163782621/19342813113834066795298816 binary64)) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda2))))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))))) R)))
(if (<=.f64 phi1 #s(literal -7706902100043261/151115727451828646838272 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))))) R))
(if (<=.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 8998192055486251/9007199254740992 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))))) R) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (+ (* (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))) (cos phi1)) (* (sin phi1) phi2)) (*.f64 (sin.f64 phi1) phi2)))) R))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))))) R)
(if (<=.f64 lambda1 #s(literal -1662273001970115/37778931862957161709568 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))))) R) (if (<=.f64 lambda1 #s(literal 3191564163782621/19342813113834066795298816 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) #s(approx (cos (- 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 phi1) (cos (- lambda2 lambda1))) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))))) R)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))))) R)

Outputs
(.f64 (acos.f64 (fma.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2) (.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)) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(if (<=.f64 phi2 #s(literal -8500259669165361/2361183241434822606848 binary64)) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R) (if (<=.f64 phi2 #s(literal 2553251331026097/77371252455336267181195264 binary64)) (.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (cos.f64 phi1))))) R) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)))
(if (or (<=.f64 phi2 #s(literal -8500259669165361/2361183241434822606848 binary64)) (not (<=.f64 phi2 #s(literal 2553251331026097/77371252455336267181195264 binary64)))) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R) (.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (cos.f64 phi1))))) R))
(if (<=.f64 phi2 #s(literal -8500259669165361/2361183241434822606848 binary64)) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R) (if (<=.f64 phi2 #s(literal 2553251331026097/77371252455336267181195264 binary64)) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))) R) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)))
(if (or (<=.f64 phi2 #s(literal -8500259669165361/2361183241434822606848 binary64)) (not (<=.f64 phi2 #s(literal 2553251331026097/77371252455336267181195264 binary64)))) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))) R))
(if (<=.f64 phi2 #s(literal -8500259669165361/2361183241434822606848 binary64)) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R) (if (<=.f64 phi2 #s(literal 2553251331026097/77371252455336267181195264 binary64)) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))) R) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)))
(if (or (<=.f64 phi2 #s(literal -8500259669165361/2361183241434822606848 binary64)) (not (<=.f64 phi2 #s(literal 2553251331026097/77371252455336267181195264 binary64)))) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi1) (.f64 (sin.f64 phi1) phi2)))) R))
(if (<=.f64 phi2 #s(literal -4533471823554859/151115727451828646838272 binary64)) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R) (if (<=.f64 phi2 #s(literal 2050338190066411/77371252455336267181195264 binary64)) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)))
(if (or (<=.f64 phi2 #s(literal -4533471823554859/151115727451828646838272 binary64)) (not (<=.f64 phi2 #s(literal 2050338190066411/77371252455336267181195264 binary64)))) (.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R))
(if (<=.f64 lambda2 #s(literal -21999999999999999483034433280792250702873073898465757623012114819665147993056844762457170375726229656817119530788934493496744247033856 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R) (if (<=.f64 lambda2 #s(literal -2720894750872159/1152921504606846976 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (cos.f64 phi2)))) R) (if (<=.f64 lambda2 #s(literal 5815372481559007/20769187434139310514121985316880384 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (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 lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (cos.f64 phi2)))) R))))
(if (<=.f64 lambda2 #s(literal -21999999999999999483034433280792250702873073898465757623012114819665147993056844762457170375726229656817119530788934493496744247033856 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R) (if (or (<=.f64 lambda2 #s(literal -2720894750872159/1152921504606846976 binary64)) (not (<=.f64 lambda2 #s(literal 5815372481559007/20769187434139310514121985316880384 binary64)))) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (cos.f64 phi2)))) R) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)))
(if (<=.f64 lambda2 #s(literal -21999999999999999483034433280792250702873073898465757623012114819665147993056844762457170375726229656817119530788934493496744247033856 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R) (if (<=.f64 lambda2 #s(literal -2720894750872159/1152921504606846976 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R) (if (<=.f64 lambda2 #s(literal 5815372481559007/20769187434139310514121985316880384 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (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 lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R))))
(if (<=.f64 lambda2 #s(literal -21999999999999999483034433280792250702873073898465757623012114819665147993056844762457170375726229656817119530788934493496744247033856 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R) (if (or (<=.f64 lambda2 #s(literal -2720894750872159/1152921504606846976 binary64)) (not (<=.f64 lambda2 #s(literal 5815372481559007/20769187434139310514121985316880384 binary64)))) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)))
(if (<=.f64 lambda2 #s(literal -5323142168927135/2475880078570760549798248448 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R) (if (<=.f64 lambda2 #s(literal 8264141345021879/2361183241434822606848 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (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)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 lambda2)) (cos.f64 phi2) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)))
(if (<=.f64 phi2 #s(literal -3423715700080493/1180591620717411303424 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R) (if (<=.f64 phi2 #s(literal 6407306843957535/604462909807314587353088 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)))
(if (or (<=.f64 phi2 #s(literal -3423715700080493/1180591620717411303424 binary64)) (not (<=.f64 phi2 #s(literal 6407306843957535/604462909807314587353088 binary64)))) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (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)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R))
(if (<=.f64 phi2 #s(literal 4150517416584649/4611686018427387904 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) R))
(if (<=.f64 phi2 #s(literal 662929865148937/576460752303423488 binary64)) (.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) R))
(if (<=.f64 phi2 #s(literal 760928193040519/1152921504606846976 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) R))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))) R)
(if (<=.f64 lambda1 #s(literal -1851167661284901/37778931862957161709568 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))))) R) (if (<=.f64 lambda1 #s(literal 3191564163782621/19342813113834066795298816 binary64)) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda2))))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))))) R)))
(if (or (<=.f64 lambda1 #s(literal -1851167661284901/37778931862957161709568 binary64)) (not (<=.f64 lambda1 #s(literal 3191564163782621/19342813113834066795298816 binary64)))) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda2))))) R))
(if (<=.f64 phi1 #s(literal -7706902100043261/151115727451828646838272 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))))) R) (.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))))) R))
(if (<=.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 8998192055486251/9007199254740992 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))))) R) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) #s(approx (+ (* (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda1) (cos lambda2))) (cos phi1)) (* (sin phi1) phi2)) (*.f64 (sin.f64 phi1) phi2)))) R))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (cos.f64 (-.f64 lambda2 lambda1))))) R)
(if (<=.f64 lambda1 #s(literal -1662273001970115/37778931862957161709568 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))))) R) (if (<=.f64 lambda1 #s(literal 3191564163782621/19342813113834066795298816 binary64)) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) #s(approx (cos (- 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 phi1) (cos (- lambda2 lambda1))) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))))) R)))
(if (or (<=.f64 lambda1 #s(literal -1662273001970115/37778931862957161709568 binary64)) (not (<=.f64 lambda1 #s(literal 3191564163782621/19342813113834066795298816 binary64)))) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))))) R) (.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (* (cos phi1) (cos (- lambda2 lambda1))) #s(approx (cos (- 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 phi1) (cos (- lambda2 lambda1))) #s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda1))))) R)

derivations1.4s (3.6%)

Memory

-24.3MiB live, 931.5MiB allocated; 79ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 1 418 to 218 computations (84.6% saved)

preprocess149.0ms (0.4%)

Memory: -4.3MiB live, 476.0MiB allocated; 50ms collecting garbage
Remove: (negabs R)
Compiler: Compiled 3 054 to 602 computations (80.3% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze3.4s (9.2%)

sample10.5s (28.4%)

explain376.0ms (1%)

preprocess46.0ms (0.1%)

eval0.0ms (0%)

prune1.0ms (0%)

simplify4.0ms (0%)

localize2.3s (6.3%)

series36.0ms (0.1%)

simplify325.0ms (0.9%)

rewrite636.0ms (1.7%)

eval21.0ms (0.1%)

prune23.0ms (0.1%)

simplify69.0ms (0.2%)

localize1.2s (3.3%)

series189.0ms (0.5%)

simplify677.0ms (1.8%)

rewrite692.0ms (1.9%)

eval116.0ms (0.3%)

prune54.0ms (0.1%)

simplify63.0ms (0.2%)

localize437.0ms (1.2%)

series86.0ms (0.2%)

simplify374.0ms (1%)

rewrite655.0ms (1.8%)

eval40.0ms (0.1%)

prune53.0ms (0.1%)

simplify50.0ms (0.1%)

localize1.2s (3.3%)

series232.0ms (0.6%)

simplify684.0ms (1.8%)

rewrite2.0s (5.5%)

eval91.0ms (0.2%)

prune101.0ms (0.3%)

regimes974.0ms (2.6%)

regimes161.0ms (0.4%)

regimes526.0ms (1.4%)

regimes496.0ms (1.3%)

regimes645.0ms (1.7%)

regimes18.0ms (0%)

regimes12.0ms (0%)

regimes14.0ms (0%)

regimes132.0ms (0.4%)

regimes10.0ms (0%)

regimes16.0ms (0%)

regimes26.0ms (0.1%)

regimes24.0ms (0.1%)

regimes627.0ms (1.7%)

regimes15.0ms (0%)

regimes25.0ms (0.1%)

regimes67.0ms (0.2%)

regimes403.0ms (1.1%)

regimes21.0ms (0.1%)

regimes4.0ms (0%)

regimes19.0ms (0.1%)

regimes7.0ms (0%)

bsearch187.0ms (0.5%)

bsearch3.0ms (0%)

bsearch3.0ms (0%)

bsearch110.0ms (0.3%)

bsearch1.1s (2.9%)

bsearch3.0ms (0%)

bsearch1.8s (5%)

bsearch361.0ms (1%)

bsearch214.0ms (0.6%)

bsearch15.0ms (0%)

bsearch75.0ms (0.2%)

bsearch374.0ms (1%)

bsearch76.0ms (0.2%)

bsearch0.0ms (0%)

bsearch19.0ms (0.1%)

simplify80.0ms (0.2%)

derivations1.4s (3.6%)

preprocess149.0ms (0.4%)

end0.0ms (0%)

Profiling