Metrics for Destination given bearing on a great circle

start0.0ms (0%)

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

analyze1.4s (10.3%)

Memory

42.0MiB live, 1 200.4MiB allocated; 143ms 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 35 to 25 computations (28.6% saved)

sample4.2s (31.3%)

Memory

108.4MiB live, 2 553.0MiB allocated; 2.0s collecting garbage

Samples

3.5s

8 256×

valid

Precisions

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

ival-sin: 1.6s (52.2% of total)

ival-cos: 737.0ms (23.5% of total)

ival-mult: 426.0ms (13.6% of total)

ival-asin: 149.0ms (4.8% of total)

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

ival-atan2: 62.0ms (2% of total)

ival-sub: 39.0ms (1.2% of total)

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

adjust: 3.0ms (0.1% of total)

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

Bogosity

explain375.0ms (2.8%)

Memory

-23.7MiB live, 305.9MiB allocated; 24ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Underpredictions	Example	Subexpression
3	1	(2.0422339780344e-232 247052585140543.1 -9.178171410724468e+276 5.955554912643705e+70 421842222964824.5)	1	(1.2178248804388409e+145 -1.0518723574698439e+149 -7.3483603418757775e-171 -1.2483955922026011e-257 -7.424415576275052e-156)	`(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))`
0	0	-	0	-	`(cos.f64 theta)`
0	0	-	0	-	`theta`
0	0	-	0	-	`(sin.f64 theta)`
0	0	-	0	-	`(.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))`
0	0	-	0	-	`(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))`
0	0	-	0	-	`delta`
0	0	-	0	-	`(sin.f64 phi1)`
0	0	-	0	-	`(*.f64 (sin.f64 phi1) (cos.f64 delta))`
0	0	-	0	-	`lambda1`
0	0	-	0	-	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
0	0	-	0	-	`(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))`
0	0	-	0	-	`(*.f64 (sin.f64 theta) (sin.f64 delta))`
0	0	-	0	-	`phi1`
0	0	-	0	-	`(*.f64 (cos.f64 phi1) (sin.f64 delta))`
0	0	-	0	-	`(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))`
0	0	-	0	-	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
0	0	-	0	-	`(sin.f64 delta)`
0	0	-	0	-	`(sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))`
0	0	-	0	-	`(cos.f64 delta)`
0	0	-	0	-	`(asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))`
0	0	-	0	-	`(cos.f64 phi1)`

Explanations

Click to see full explanations table

Operator	Subexpression	Explanation	Count
`-.f64`	`(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))`	cancellation	2	0

Confusion

	Predicted +	Predicted -
+	0	0
-	2	254

Precision

0.0

Recall

0/0

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	0	0	0
-	2	0	254

Precision?

0.0

Recall?

0/0

Freqs

test

number	freq
0	254
1	2

Total Confusion?

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

Precision?

0.0

Recall?

0/0

Samples

146.0ms

512×

valid

Compiler

Compiled 431 to 73 computations (83.1% saved)

Precisions

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

ival-sin: 35.0ms (29.4% of total)

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

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

ival-asin: 6.0ms (5% of total)

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

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

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

adjust: 0.0ms (0% of total)

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

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

preprocess187.0ms (1.4%)

Memory

6.4MiB live, 141.8MiB allocated; 11ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	179	677
1	422	672
2	873	670
3	1685	670
4	3411	670
5	6238	670
0	22	33
0	40	33
1	73	33
2	137	33
3	300	33
4	665	33
5	1634	33
6	4090	33
7	7302	33
0	8241	32

Stop Event

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

Calls

Call 1

Inputs

(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))

Outputs

(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))

(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 (asin.f64 (fma.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))))) (cos.f64 delta))) lambda1)

Symmetry

(abs phi2)

Compiler

Compiled 33 to 23 computations (30.3% saved)

eval0.0ms (0%)

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

prune1.0ms (0%)

Memory

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

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))

Status

Accuracy

Program

▶

99.8%

(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))

Compiler

Compiled 33 to 23 computations (30.3% saved)

simplify168.0ms (1.2%)

Memory

3.6MiB live, 98.0MiB allocated; 9ms collecting garbage

Localize:

Found 4 expressions of interest:

New	Metric	Score
cost-diff	0	(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
cost-diff	0	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))
cost-diff	0	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
cost-diff	1	(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	22	197
0	40	197
1	73	197
2	137	197
3	300	197
4	665	197
5	1634	197
6	4090	197
7	7302	197
0	8241	190

Stop Event

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

Calls

Call 1

Inputs
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
lambda1
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(sin.f64 theta)
theta
(sin.f64 delta)
delta
(cos.f64 phi1)
phi1
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))
(cos.f64 delta)
(.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))
(sin.f64 phi1)
(sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))
(*.f64 (sin.f64 phi1) (cos.f64 delta))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(cos.f64 theta)

Outputs
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))))) (cos.f64 delta))) lambda1)
lambda1
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))))) (cos.f64 delta)))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(sin.f64 theta)
theta
(sin.f64 delta)
delta
(cos.f64 phi1)
phi1
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))
(fma.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))))) (cos.f64 delta))
(cos.f64 delta)
(.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))
(.f64 (sin.f64 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))))) (sin.f64 phi1))
(sin.f64 phi1)
(sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(sin.f64 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))
(asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))
(asin.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))))
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))
(fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(*.f64 (sin.f64 phi1) (cos.f64 delta))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(cos.f64 theta)

localize78.0ms (0.6%)

Memory

29.7MiB live, 75.5MiB allocated; 2ms collecting garbage

Localize:

Found 4 expressions of interest:

New	Metric	Score
accuracy	0.1953125	(*.f64 (sin.f64 theta) (sin.f64 delta))
accuracy	0.21779252930532603	(asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))
accuracy	0.2734375	(.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))
accuracy	0.3740377942638002	(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))

Samples

64.0ms

256×

valid

Compiler

Compiled 199 to 25 computations (87.4% saved)

Precisions

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

ival-sin: 18.0ms (35.9% of total)

ival-cos: 13.0ms (25.9% of total)

ival-mult: 10.0ms (19.9% of total)

ival-asin: 3.0ms (6% of total)

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

ival-atan2: 2.0ms (4% of total)

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

adjust: 0.0ms (0% of total)

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

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

series54.0ms (0.4%)

Memory

-11.1MiB live, 34.7MiB allocated; 4ms collecting garbage

Counts

8 → 68

Calls

Call 1

Inputs
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))
(.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))
(asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))
(*.f64 (sin.f64 theta) (sin.f64 delta))

Outputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* phi1 (cos delta))))))) (* (cos theta) (sin delta)))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) #s(hole binary64 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* -1/2 (* delta (sin phi1))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (* (cos phi1) (cos theta)))))) (* (cos phi1) (cos theta)))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))

Calls

15 calls:

Time	Variable		Point	Expression
22.0ms	phi1	@	0	((+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin theta) (sin delta)))
5.0ms	theta	@	inf	((+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin theta) (sin delta)))
4.0ms	phi1	@	inf	((+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin theta) (sin delta)))
3.0ms	delta	@	0	((+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin theta) (sin delta)))
3.0ms	phi1	@	-inf	((+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin theta) (sin delta)))

simplify294.0ms (2.2%)

Memory

-28.4MiB live, 132.7MiB allocated; 150ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	360	2661
1	1210	2538
2	5210	2522
0	8646	2374

Stop Event

1×	iter limit
1×	node limit

Counts

68 → 68

Calls

Call 1

Inputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* phi1 (cos delta))))))) (* (cos theta) (sin delta)))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) #s(hole binary64 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* -1/2 (* delta (sin phi1))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (* (cos phi1) (cos theta)))))) (* (cos phi1) (cos theta)))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))

Outputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (fma.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) lambda1) lambda1 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) (neg.f64 lambda1)) #s(literal 1 binary64))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (fma.f64 (cos.f64 theta) (sin.f64 delta) (*.f64 (cos.f64 delta) phi1)))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (fma.f64 (fma.f64 (.f64 phi1 (.f64 #s(literal -1/2 binary64) (cos.f64 theta))) (sin.f64 delta) (cos.f64 delta)) phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* phi1 (cos delta))))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 delta)) phi1 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta))) phi1 (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1) #s(literal -1/2 binary64))) (.f64 phi1 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta)) (.f64 (pow.f64 phi1 #s(literal 4 binary64)) (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (neg.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (neg.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (*.f64 (cos.f64 delta) phi1))) phi1 (cos.f64 delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (fma.f64 (neg.f64 (sin.f64 delta)) (cos.f64 theta) (.f64 (-.f64 (.f64 (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta)) #s(literal 2/3 binary64)) (cos.f64 delta)) phi1)) phi1 (cos.f64 delta)))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta)))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) #s(literal -2/3 binary64))) phi1 (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))) phi1))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/3 binary64) (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) #s(literal -2/3 binary64)))) phi1 (cos.f64 delta)) phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))) phi1))
#s(approx (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) #s(hole binary64 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (asin.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta)))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (sin.f64 phi1))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (fma.f64 (*.f64 delta (cos.f64 theta)) (cos.f64 phi1) (sin.f64 phi1)))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* -1/2 (* delta (sin phi1))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (cos.f64 phi1))) delta (sin.f64 phi1)))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (* (cos phi1) (cos theta)))))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) delta)) (cos.f64 theta) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1))) delta (.f64 (cos.f64 theta) (cos.f64 phi1))) delta (sin.f64 phi1)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) delta) (sin.f64 theta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 theta))) delta))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (pow.f64 delta #s(literal 3 binary64)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (fma.f64 #s(literal 1/120 binary64) (.f64 delta delta) #s(literal -1/6 binary64))) (.f64 (*.f64 (cos.f64 phi1) delta) (sin.f64 theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 theta)) (.f64 (pow.f64 delta #s(literal 4 binary64)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (fma.f64 #s(literal -1/5040 binary64) (*.f64 delta delta) #s(literal 1/120 binary64))))) delta))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (neg.f64 delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi1))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal -1/2 binary64)) delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta (.f64 (cos.f64 phi1) (cos.f64 phi1))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (fma.f64 (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 phi1)) (cos.f64 theta) (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) delta)) (.f64 (cos.f64 theta) (sin.f64 phi1))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) delta)) delta (*.f64 (cos.f64 phi1) (cos.f64 phi1))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (.f64 (cos.f64 phi1) delta) (.f64 (cos.f64 theta) (sin.f64 phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 phi1)) (cos.f64 theta) (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) delta)) (.f64 (cos.f64 theta) (sin.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal -1/2 binary64))) delta)) delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 theta) delta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 (*.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (sin.f64 theta)) delta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin theta) (sin delta)) (fma.f64 (pow.f64 delta #s(literal 3 binary64)) (.f64 (sin.f64 theta) (fma.f64 #s(literal 1/120 binary64) (.f64 delta delta) #s(literal -1/6 binary64))) (*.f64 (sin.f64 theta) delta)))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (sin.f64 theta) (.f64 (pow.f64 delta #s(literal 4 binary64)) (.f64 (sin.f64 theta) (fma.f64 #s(literal -1/5040 binary64) (*.f64 delta delta) #s(literal 1/120 binary64))))) delta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (fma.f64 (.f64 (.f64 theta theta) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 (.f64 theta theta) #s(literal 1/24 binary64) #s(literal -1/2 binary64))) (.f64 theta theta) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta)))))))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 (.f64 theta theta) #s(literal -1/720 binary64) #s(literal 1/24 binary64))) (.f64 theta theta))) (.f64 theta theta) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) theta) (sin.f64 delta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (fma.f64 (.f64 theta theta) #s(literal -1/6 binary64) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta))) theta))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (pow.f64 theta #s(literal 3 binary64)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 (.f64 theta theta) #s(literal 1/120 binary64) #s(literal -1/6 binary64))) (.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (fma.f64 (.f64 theta theta) #s(literal -1/6 binary64) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (pow.f64 theta #s(literal 4 binary64)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 (*.f64 theta theta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))))) theta))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (.f64 (.f64 theta theta) #s(literal 1/2 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(literal -1/24 binary64) (.f64 theta theta) #s(literal 1/2 binary64))) (.f64 theta theta) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 delta)) (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(literal 1/720 binary64) (.f64 theta theta) #s(literal -1/24 binary64))) (.f64 theta theta))) (.f64 theta theta) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (.f64 (.f64 theta theta) #s(literal -1/2 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (.f64 theta theta) #s(literal 1/24 binary64) #s(literal -1/2 binary64))) (.f64 theta theta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (.f64 (.f64 theta theta) #s(literal -1/2 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (pow.f64 theta #s(literal 4 binary64)) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (.f64 theta theta) #s(literal -1/720 binary64) #s(literal 1/24 binary64))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 (*.f64 theta theta) #s(literal -1/6 binary64) #s(literal 1 binary64)) (sin.f64 delta)) theta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin theta) (sin delta)) (fma.f64 (pow.f64 theta #s(literal 3 binary64)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) #s(literal 1/120 binary64) #s(literal -1/6 binary64))) (*.f64 (sin.f64 delta) theta)))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (fma.f64 (.f64 theta theta) #s(literal -1/6 binary64) #s(literal 1 binary64)) (sin.f64 delta) (.f64 (pow.f64 theta #s(literal 4 binary64)) (.f64 (sin.f64 delta) (fma.f64 (*.f64 theta theta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))))) theta))

rewrite196.0ms (1.5%)

Memory

-2.7MiB live, 136.7MiB allocated; 18ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	22	147
0	40	139
1	133	139
2	1001	139
0	8752	133

Stop Event

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

Counts

8 → 169

Calls

Call 1

Inputs
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))
(.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))
(asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))
(*.f64 (sin.f64 theta) (sin.f64 delta))

Outputs
(/.f64 (-.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))) #s(literal 3 binary64))) (fma.f64 (/.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))) (fma.f64 (/.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))) (.f64 (/.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))))))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 0 binary64) (sin.f64 (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (fma.f64 (.f64 #s(literal 0 binary64) (sin.f64 (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (.f64 #s(literal 0 binary64) (sin.f64 (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (.f64 (.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal 0 binary64) (sin.f64 (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)) (fma.f64 (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 delta)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)) (fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 delta)) (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 delta)) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 theta)) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (.f64 (neg.f64 (cos.f64 theta)) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (neg.f64 (cos.f64 theta)) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 theta)) (.f64 (sin.f64 delta) (cos.f64 phi1)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 theta) (sin.f64 delta))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 theta) (sin.f64 delta)))))))
(/.f64 (+.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (/.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)))) (-.f64 (.f64 (/.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64))))) (.f64 (/.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64))))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 delta)) (cos.f64 phi1))) (cos.f64 theta)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 delta)) (cos.f64 phi1))) (cos.f64 theta)) (.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 delta)) (cos.f64 phi1))) (cos.f64 theta))) (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (neg.f64 (*.f64 (neg.f64 (sin.f64 delta)) (cos.f64 phi1))) (cos.f64 theta))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)))) (neg.f64 (-.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (neg.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64))))) (neg.f64 (neg.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))))))
(/.f64 (neg.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64))))))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))) (.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)))) (.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))))
(/.f64 (fma.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64))) (.f64 (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64))) (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 3 binary64)))) (.f64 (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (cos.f64 delta) (sin.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (neg.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (cos.f64 theta)) (.f64 (sin.f64 delta) (cos.f64 phi1)))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (cos.f64 theta)) (.f64 (sin.f64 delta) (cos.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64))))
(fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))
(fma.f64 #s(literal 0 binary64) (sin.f64 (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))
(fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (cos.f64 delta) (sin.f64 phi1)))
(fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))
(fma.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta) (.f64 (cos.f64 delta) (sin.f64 phi1)))
(fma.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))
(fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 delta)) (cos.f64 phi1))) (cos.f64 theta)))
(fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))
(fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 delta)) (cos.f64 phi1))) (cos.f64 theta)))
(fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))
(sin.f64 (+.f64 (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))
(-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))
(-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (neg.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))))))) (/.f64 (pow.f64 (neg.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (neg.f64 (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))))))))
(-.f64 (.f64 (sin.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 0 binary64)) (.f64 (cos.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 1 binary64)))
(-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))))))
(-.f64 (.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal 0 binary64) (sin.f64 (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))
(-.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)))
(-.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 theta)) (*.f64 (sin.f64 delta) (cos.f64 phi1))))
(-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 delta))))
(-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (neg.f64 (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))))
(cos.f64 (neg.f64 (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
(cos.f64 (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))
(+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (cos.f64 theta)) (.f64 (sin.f64 delta) (cos.f64 phi1)))))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (cos.f64 theta)) (*.f64 (sin.f64 delta) (cos.f64 phi1)))))))
(+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (cos.f64 theta)) (.f64 (sin.f64 delta) (cos.f64 phi1)))))) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (cos.f64 theta)) (*.f64 (sin.f64 delta) (cos.f64 phi1)))))))
(+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)))))
(+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)))))
(+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))) (/.f64 (.f64 (neg.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))))
(+.f64 (.f64 #s(literal 0 binary64) (sin.f64 (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))
(+.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))
(+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (neg.f64 (*.f64 (neg.f64 (sin.f64 delta)) (cos.f64 phi1))) (cos.f64 theta)))
(+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))))) #s(literal 3 binary64)) (pow.f64 (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))))) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))))) (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))))) (fma.f64 (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))))) (.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1))))))))))
(/.f64 (+.f64 (pow.f64 (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1) (.f64 lambda1 lambda1))) #s(literal 3 binary64)) (pow.f64 (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1) (.f64 lambda1 lambda1))) #s(literal 3 binary64))) (fma.f64 (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1) (.f64 lambda1 lambda1))) (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1) (.f64 lambda1 lambda1))) (-.f64 (.f64 (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1) (.f64 lambda1 lambda1))) (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1) (.f64 lambda1 lambda1)))) (.f64 (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1) (.f64 lambda1 lambda1))) (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1) (.f64 lambda1 lambda1)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) (neg.f64 (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)))
(/.f64 (neg.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 2 binary64))))) (neg.f64 (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1))))))))
(/.f64 (neg.f64 (neg.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))))) (neg.f64 (neg.f64 (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1) (.f64 lambda1 lambda1)))))
(/.f64 (-.f64 (.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))))) (.f64 (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1))))) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1))))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))))))
(/.f64 (fma.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1) (.f64 lambda1 lambda1)) (.f64 (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1) (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1) (*.f64 lambda1 lambda1))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1))
(/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64)))) (neg.f64 (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1) (.f64 lambda1 lambda1))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1) (.f64 lambda1 lambda1)))
(-.f64 (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 2 binary64)) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)) (/.f64 (.f64 lambda1 lambda1) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)))
(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))))))
(+.f64 (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)))) (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)))))
(+.f64 (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)))) (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)))))
(+.f64 (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1) (.f64 lambda1 lambda1))) (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1) (*.f64 lambda1 lambda1))))
(+.f64 (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1) (.f64 lambda1 lambda1))) (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1) (*.f64 lambda1 lambda1))))
(+.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))))) (/.f64 (.f64 (neg.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1))))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1))))
(.f64 (.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))
(.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (cos.f64 phi1)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) (sin.f64 delta)))
(/.f64 (neg.f64 (*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) (cos.f64 phi1))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))))) #s(literal -2 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta))) #s(literal 3 binary64)) (pow.f64 (/.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta))) #s(literal 3 binary64))) (fma.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta))) (fma.f64 (/.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta))) (/.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta))) (.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta))) (/.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (/.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))
(/.f64 (+.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (cos.f64 delta)))))
(/.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (-.f64 (.f64 (.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (sin.f64 phi1)) (.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (sin.f64 phi1))) (.f64 (cos.f64 delta) (.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (sin.f64 phi1))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (cos.f64 delta) (cos.f64 delta) (-.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64))))) (neg.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
(/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta))) (.f64 (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64)))) (.f64 (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta))))
(/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 3 binary64)))) (.f64 (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (-.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
(fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))
(fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta))) (/.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
(-.f64 (cos.f64 delta) (.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))
(-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))
(+.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (cos.f64 delta) (-.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))) (/.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (cos.f64 delta) (-.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(+.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta))) (/.f64 (.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1))) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta))))
(+.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) (cos.f64 delta))
(+.f64 (cos.f64 delta) (.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) (sin.f64 phi1)))
(+.f64 (cos.f64 delta) (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))
(.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (/.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (/.f64 (cos.f64 (+.f64 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) phi1)) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (/.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (fma.f64 (/.f64 (cos.f64 (+.f64 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) phi1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) phi1)) #s(literal 2 binary64)) (.f64 (/.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) phi1)) #s(literal 2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) (-.f64 (.f64 (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1)) (-.f64 (.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 delta) (sin.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (-.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 delta) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (.f64 (sin.f64 phi1) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 delta) (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 delta) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (.f64 (cos.f64 delta) (sin.f64 phi1))) (-.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))) (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 delta) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))))))
(/.f64 (neg.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64))) (sin.f64 phi1))) (neg.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))))))
(/.f64 (neg.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64))) (sin.f64 phi1))) (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64))))) (neg.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))))))
(/.f64 (neg.f64 (.f64 (sin.f64 phi1) (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64))))) (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (cos.f64 (+.f64 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) phi1))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) phi1)) (cos.f64 (+.f64 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) phi1)))) #s(literal -2 binary64))
(/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (cos.f64 (+.f64 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) phi1)))) #s(literal 4 binary64))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64))) (sin.f64 phi1)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64))) (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64))))
(/.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))))
(/.f64 (.f64 (sin.f64 phi1) (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)))) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64))))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (cos.f64 (+.f64 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) phi1)))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) phi1)) (cos.f64 (+.f64 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) phi1))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (cos.f64 (+.f64 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) phi1))) #s(literal 2 binary64))
(fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1) (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))
(fma.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (sin.f64 phi1) (.f64 (cos.f64 delta) (sin.f64 phi1))))
(fma.f64 (sin.f64 phi1) (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))))
(-.f64 (/.f64 (cos.f64 (-.f64 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) phi1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) phi1)) #s(literal 2 binary64)))
(-.f64 (/.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) phi1)) #s(literal 2 binary64)))
(+.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1)))
(+.f64 (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (.f64 (sin.f64 phi1) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(+.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 delta) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))))
(asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))
(-.f64 (/.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (/.f64 (pow.f64 (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))
(-.f64 (/.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))) (/.f64 (pow.f64 (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64)))
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(/.f64 (-.f64 (pow.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (/.f64 (cos.f64 (+.f64 theta delta)) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (fma.f64 (/.f64 (cos.f64 (+.f64 theta delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 theta delta)) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 theta delta)) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 theta delta)))) #s(literal -2 binary64))
(/.f64 (-.f64 (.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (cos.f64 (+.f64 theta delta)))) #s(literal 4 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64))
(-.f64 (/.f64 (cos.f64 (-.f64 delta theta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 theta delta)) #s(literal 2 binary64)))
(-.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 theta delta)) #s(literal 2 binary64)))

eval44.0ms (0.3%)

Memory: 12.8MiB live, 57.7MiB allocated; 3ms collecting garbage
Compiler: Compiled 16 565 to 1 609 computations (90.3% saved)

prune19.0ms (0.1%)

Memory

-18.0MiB live, 28.8MiB allocated; 2ms collecting garbage

Pruning

16 alts after pruning (16 fresh and 0 done)

	Pruned	Kept	Total
New	221	16	237
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	222	16	238

Accuracy

100.0%

Counts

238 → 16

Alt Table

Click to see full alt table

Status	Accuracy	Program
	51.2%	(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1) (.f64 lambda1 lambda1)))
	99.9%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta))) (.f64 (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64)))) (.f64 (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta))))))
▶	99.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))))
▶	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	88.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 #s(approx (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
	92.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	93.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))
▶	84.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
	79.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (neg.f64 delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi1))))))
	79.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))))
	88.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	99.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	99.5%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (fma.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) lambda1) lambda1 lambda1))
▶	32.2%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
▶	68.8%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

Compiler

Compiled 1 588 to 912 computations (42.6% saved)

simplify156.0ms (1.2%)

Memory

6.0MiB live, 103.2MiB allocated; 9ms collecting garbage

Localize:

Found 17 expressions of interest:

New	Metric	Score
cost-diff	0	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
cost-diff	0	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
cost-diff	2	(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64))))))
cost-diff	3	(sin.f64 (-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64))))
cost-diff	0	(*.f64 (cos.f64 phi1) (sin.f64 theta))
cost-diff	0	(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
cost-diff	0	(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta)))
cost-diff	0	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
cost-diff	0	(*.f64 (sin.f64 theta) (sin.f64 delta))
cost-diff	0	(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
cost-diff	0	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta)))))
cost-diff	0	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
cost-diff	0	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
cost-diff	0	(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
cost-diff	0	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))))
cost-diff	0	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))))
cost-diff	3	(fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	66	783
0	109	765
1	206	765
2	409	765
3	1051	765
4	1957	757
5	3780	747
6	7700	747
0	8063	744

Stop Event

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

Calls

Call 1

Inputs
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))))
lambda1
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(sin.f64 theta)
theta
(sin.f64 delta)
delta
(cos.f64 phi1)
phi1
(-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))
(cos.f64 delta)
(fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))
(*.f64 (cos.f64 delta) (sin.f64 phi1))
(sin.f64 phi1)
(.f64 (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))
(.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))
(cos.f64 theta)
(*.f64 (sin.f64 delta) (cos.f64 phi1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
lambda1
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
lambda1
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta)))))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(sin.f64 theta)
theta
(sin.f64 delta)
delta
(cos.f64 phi1)
phi1
(-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))
(cos.f64 delta)
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta)))
(.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))
(*.f64 phi1 (sin.f64 delta))
(cos.f64 theta)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta)))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
(*.f64 (cos.f64 phi1) (sin.f64 theta))
(cos.f64 phi1)
phi1
(sin.f64 theta)
theta
(sin.f64 delta)
delta
(fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))
(neg.f64 (sin.f64 phi1))
(sin.f64 phi1)
(fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(*.f64 (cos.f64 theta) (cos.f64 phi1))
(cos.f64 theta)
(*.f64 (sin.f64 phi1) (cos.f64 delta))
(cos.f64 delta)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
lambda1
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(sin.f64 theta)
theta
(sin.f64 delta)
delta
(cos.f64 phi1)
phi1
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(cos.f64 delta)
(.f64 (sin.f64 phi1) (sin.f64 (-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 phi1)
(sin.f64 (-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64))))
(-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64)))
(acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))
(neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))
(fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))
(cos.f64 theta)
(*.f64 (sin.f64 delta) (cos.f64 phi1))
(*.f64 (cos.f64 delta) (sin.f64 phi1))
(/.f64 (PI.f64) #s(literal 2 binary64))
(PI.f64)
#s(literal 2 binary64)

Outputs
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1)
lambda1
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(sin.f64 theta)
theta
(sin.f64 delta)
delta
(cos.f64 phi1)
phi1
(-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))
(fma.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(cos.f64 delta)
(fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))
(.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))
(*.f64 (cos.f64 delta) (sin.f64 phi1))
(*.f64 (sin.f64 phi1) (cos.f64 delta))
(sin.f64 phi1)
(.f64 (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))
(.f64 (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi1)) (cos.f64 theta)) (sin.f64 delta))
(.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(cos.f64 theta)
(*.f64 (sin.f64 delta) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
lambda1
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) lambda1)
lambda1
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta)))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta)))))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(sin.f64 theta)
theta
(sin.f64 delta)
delta
(cos.f64 phi1)
phi1
(-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))
(-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))
(cos.f64 delta)
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta)))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta)))
(.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))
(.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))
(*.f64 phi1 (sin.f64 delta))
(cos.f64 theta)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(*.f64 (cos.f64 phi1) (sin.f64 theta))
(cos.f64 phi1)
phi1
(sin.f64 theta)
theta
(sin.f64 delta)
delta
(fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))
(fma.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(neg.f64 (sin.f64 phi1))
(sin.f64 phi1)
(fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(*.f64 (cos.f64 theta) (cos.f64 phi1))
(cos.f64 theta)
(*.f64 (sin.f64 phi1) (cos.f64 delta))
(cos.f64 delta)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (cos.f64 (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (sin.f64 phi1) (cos.f64 delta))) lambda1)
lambda1
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (cos.f64 (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (sin.f64 phi1) (cos.f64 delta)))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(sin.f64 theta)
theta
(sin.f64 delta)
delta
(cos.f64 phi1)
phi1
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(fma.f64 (cos.f64 (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (sin.f64 phi1) (cos.f64 delta))
(cos.f64 delta)
(.f64 (sin.f64 phi1) (sin.f64 (-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(.f64 (cos.f64 (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))) (neg.f64 (sin.f64 phi1)))
(sin.f64 phi1)
(sin.f64 (-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64))))
(neg.f64 (cos.f64 (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
(-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64)))
(-.f64 (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))
(acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))
(neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))
(neg.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))))
(fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(cos.f64 theta)
(*.f64 (sin.f64 delta) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(*.f64 (cos.f64 delta) (sin.f64 phi1))
(*.f64 (sin.f64 phi1) (cos.f64 delta))
(/.f64 (PI.f64) #s(literal 2 binary64))
(*.f64 #s(literal 1/2 binary64) (PI.f64))
(PI.f64)
#s(literal 2 binary64)

localize323.0ms (2.4%)

Memory

24.7MiB live, 254.4MiB allocated; 17ms collecting garbage

Localize:

Found 17 expressions of interest:

New	Metric	Score
accuracy	0.23455734322092398	(acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))
accuracy	0.2734375	(.f64 (sin.f64 phi1) (sin.f64 (-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64)))))
accuracy	0.3740377942638002	(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64))))))
accuracy	16.507540765204627	(-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64)))
accuracy	0.21550751953688405	(fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))
accuracy	0.27181625976844204	(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
accuracy	0.4350518790888568	(fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))
accuracy	43.2834927706314	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
accuracy	0.17578125	(.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))
accuracy	0.1953125	(*.f64 (sin.f64 theta) (sin.f64 delta))
accuracy	0.3740377942638002	(-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))
accuracy	35.584711412353315	#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta)))
accuracy	19.993713391012424	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
accuracy	0.1953125	(*.f64 (sin.f64 theta) (sin.f64 delta))
accuracy	0.2471275879159781	(fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))
accuracy	0.26791000976844204	(.f64 (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))
accuracy	0.3740377942638002	(-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))

Samples

137.0ms	67×	1	valid
113.0ms	189×	0	valid

Compiler

Compiled 740 to 57 computations (92.3% saved)

Precisions

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

ival-sin: 67.0ms (31.6% of total)

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

ival-mult: 34.0ms (16% of total)

ival-sub: 21.0ms (9.9% of total)

adjust: 15.0ms (7.1% of total)

ival-add: 11.0ms (5.2% of total)

ival-atan2: 9.0ms (4.2% of total)

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

ival-asin: 5.0ms (2.4% of total)

ival-neg: 2.0ms (0.9% of total)

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

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

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

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

exact: 0.0ms (0% of total)

series118.0ms (0.9%)

Memory

10.1MiB live, 101.4MiB allocated; 32ms collecting garbage

Counts

26 → 180

Calls

Call 1

Inputs
(fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta)))))
(*.f64 (sin.f64 theta) (sin.f64 delta))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta)))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
(*.f64 (cos.f64 phi1) (sin.f64 theta))
(sin.f64 (-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))
(.f64 (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta)))
(-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))
(.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))
(fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))
(fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64)))
(.f64 (sin.f64 phi1) (sin.f64 (-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))

Outputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))) lambda1)) 1)))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (atan2 (* (* (cos phi1) (sin theta)) (sin delta)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (sin theta)))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* -1/2 (* (pow phi1 2) (sin theta))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* (pow phi1 2) (+ (* -1/2 (sin theta)) (* 1/24 (* (pow phi1 2) (sin theta))))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* (pow phi1 2) (+ (* -1/2 (sin theta)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin theta))) (* 1/24 (sin theta)))))))))
#s(approx (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))) #s(hole binary64 (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* 1/6 (* (pow phi1 2) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* (pow phi1 2) (- (* -1/120 (* (pow phi1 2) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))) (* -1/6 (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (* 1/12 (* (cos theta) (sin delta)))))))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (+ (* 1/12 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/144 (* (cos theta) (sin delta))) (+ (* -1/240 (* (cos theta) (sin delta))) (+ (* -1/720 (* (cos theta) (sin delta))) (* -1/5040 (* (cos theta) (sin delta))))))))))))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (* (* phi1 (sin delta)) (cos theta)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (cos delta)))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* phi1 (+ (* -1 (* phi1 (cos delta))) (* -1 (* (cos theta) (sin delta))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* phi1 (+ (* -1 (cos delta)) (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* phi1 (cos delta))))))) (* (cos theta) (sin delta)))))
#s(approx (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)) #s(hole binary64 (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))
#s(approx (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))) #s(hole binary64 (* phi1 (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))) (* -1/6 (* (pow phi1 2) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))))))
#s(approx (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))) (* (pow phi1 2) (+ (* -1/6 (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))) (* 1/120 (* (pow phi1 2) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))))))))
#s(approx (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))) (* (pow phi1 2) (+ (* -1/6 (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))) (* 1/120 (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))))))))))
#s(approx (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) #s(hole binary64 (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* (cos phi1) (sin theta))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) #s(hole binary64 (- 1 (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) #s(hole binary64 (- (+ 1 (* -1/2 (pow delta 2))) (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))) (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2))) (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* 1/120 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1)))))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/120 (* (cos phi1) (* (cos theta) (sin phi1))))))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (* phi1 (sin delta)) (cos theta)) #s(hole binary64 (* delta (* phi1 (cos theta)))))
#s(approx (* (* phi1 (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* phi1 (cos theta)))) (* phi1 (cos theta))))))
#s(approx (* (* phi1 (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* phi1 (cos theta)) (* (pow delta 2) (+ (* -1/6 (* phi1 (cos theta))) (* 1/120 (* (pow delta 2) (* phi1 (cos theta))))))))))
#s(approx (* (* phi1 (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* phi1 (cos theta)) (* (pow delta 2) (+ (* -1/6 (* phi1 (cos theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* phi1 (cos theta)))) (* 1/120 (* phi1 (cos theta)))))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (* -1 (pow (sin phi1) 2)))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* -1 (pow (sin phi1) 2))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (+ (* -1 (pow (sin phi1) 2)) (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (* 1/2 (pow (sin phi1) 2)) 1/2))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (+ (* -1 (pow (sin phi1) 2)) (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (+ (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/2 (pow (sin phi1) 2))) 1/2))))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* -1/2 (* delta (sin phi1))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (* (cos phi1) (cos theta)))))) (* (cos phi1) (cos theta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1))))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (cos phi1))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* -1/6 (* (pow theta 2) (cos phi1)))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* (pow theta 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow theta 2) (cos phi1)))))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* (pow theta 2) (+ (* -1/6 (cos phi1)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin phi1)))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (* phi1 (sin delta)) (cos theta)) #s(hole binary64 (* phi1 (sin delta))))
#s(approx (* (* phi1 (sin delta)) (cos theta)) #s(hole binary64 (+ (* -1/2 (* phi1 (* (pow theta 2) (sin delta)))) (* phi1 (sin delta)))))
#s(approx (* (* phi1 (sin delta)) (cos theta)) #s(hole binary64 (+ (* phi1 (sin delta)) (* (pow theta 2) (+ (* -1/2 (* phi1 (sin delta))) (* 1/24 (* phi1 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (* phi1 (sin delta)) (cos theta)) #s(hole binary64 (+ (* phi1 (sin delta)) (* (pow theta 2) (+ (* -1/2 (* phi1 (sin delta))) (* (pow theta 2) (+ (* -1/720 (* phi1 (* (pow theta 2) (sin delta)))) (* 1/24 (* phi1 (sin delta))))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* 1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta)))))))))))

Calls

15 calls:

Time	Variable		Point	Expression
12.0ms	phi1	@	-inf	((+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (* (* (sin theta) (sin delta)) (cos phi1)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (sin theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (cos phi1) (sin theta)) (sin delta)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta))) (* (* (cos phi1) (sin theta)) (sin delta)) (* (cos phi1) (sin theta)) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))))) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (* phi1 (sin delta)) (cos theta)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))) (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))
11.0ms	delta	@	-inf	((+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (* (* (sin theta) (sin delta)) (cos phi1)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (sin theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (cos phi1) (sin theta)) (sin delta)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta))) (* (* (cos phi1) (sin theta)) (sin delta)) (* (cos phi1) (sin theta)) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))))) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (* phi1 (sin delta)) (cos theta)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))) (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))
7.0ms	phi1	@	inf	((+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (* (* (sin theta) (sin delta)) (cos phi1)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (sin theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (cos phi1) (sin theta)) (sin delta)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta))) (* (* (cos phi1) (sin theta)) (sin delta)) (* (cos phi1) (sin theta)) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))))) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (* phi1 (sin delta)) (cos theta)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))) (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))
7.0ms	delta	@	inf	((+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (* (* (sin theta) (sin delta)) (cos phi1)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (sin theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (cos phi1) (sin theta)) (sin delta)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta))) (* (* (cos phi1) (sin theta)) (sin delta)) (* (cos phi1) (sin theta)) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))))) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (* phi1 (sin delta)) (cos theta)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))) (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))
7.0ms	theta	@	inf	((+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (* (* (sin theta) (sin delta)) (cos phi1)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (sin theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (cos phi1) (sin theta)) (sin delta)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta))) (* (* (cos phi1) (sin theta)) (sin delta)) (* (cos phi1) (sin theta)) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))))) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (* phi1 (sin delta)) (cos theta)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))) (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))

simplify218.0ms (1.6%)

Memory

-2.2MiB live, 186.5MiB allocated; 38ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	758	7766
1	2479	7253
2	7268	7190
0	8276	6784

Stop Event

1×	iter limit
1×	node limit

Counts

180 → 180

Calls

Call 1

Inputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))) lambda1)) 1)))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (atan2 (* (* (cos phi1) (sin theta)) (sin delta)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (sin theta)))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* -1/2 (* (pow phi1 2) (sin theta))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* (pow phi1 2) (+ (* -1/2 (sin theta)) (* 1/24 (* (pow phi1 2) (sin theta))))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* (pow phi1 2) (+ (* -1/2 (sin theta)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin theta))) (* 1/24 (sin theta)))))))))
#s(approx (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))) #s(hole binary64 (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* 1/6 (* (pow phi1 2) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* (pow phi1 2) (- (* -1/120 (* (pow phi1 2) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))) (* -1/6 (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (* 1/12 (* (cos theta) (sin delta)))))))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (+ (* 1/12 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/144 (* (cos theta) (sin delta))) (+ (* -1/240 (* (cos theta) (sin delta))) (+ (* -1/720 (* (cos theta) (sin delta))) (* -1/5040 (* (cos theta) (sin delta))))))))))))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (* (* phi1 (sin delta)) (cos theta)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (cos delta)))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* phi1 (+ (* -1 (* phi1 (cos delta))) (* -1 (* (cos theta) (sin delta))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* phi1 (+ (* -1 (cos delta)) (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* phi1 (cos delta))))))) (* (cos theta) (sin delta)))))
#s(approx (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)) #s(hole binary64 (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))
#s(approx (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))) #s(hole binary64 (* phi1 (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))) (* -1/6 (* (pow phi1 2) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))))))
#s(approx (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))) (* (pow phi1 2) (+ (* -1/6 (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))) (* 1/120 (* (pow phi1 2) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))))))))
#s(approx (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))) (* (pow phi1 2) (+ (* -1/6 (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))) (* 1/120 (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))))))))))
#s(approx (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) #s(hole binary64 (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* (cos phi1) (sin theta))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) #s(hole binary64 (- 1 (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) #s(hole binary64 (- (+ 1 (* -1/2 (pow delta 2))) (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))) (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2))) (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* 1/120 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1)))))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/120 (* (cos phi1) (* (cos theta) (sin phi1))))))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (* phi1 (sin delta)) (cos theta)) #s(hole binary64 (* delta (* phi1 (cos theta)))))
#s(approx (* (* phi1 (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* phi1 (cos theta)))) (* phi1 (cos theta))))))
#s(approx (* (* phi1 (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* phi1 (cos theta)) (* (pow delta 2) (+ (* -1/6 (* phi1 (cos theta))) (* 1/120 (* (pow delta 2) (* phi1 (cos theta))))))))))
#s(approx (* (* phi1 (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* phi1 (cos theta)) (* (pow delta 2) (+ (* -1/6 (* phi1 (cos theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* phi1 (cos theta)))) (* 1/120 (* phi1 (cos theta)))))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (* -1 (pow (sin phi1) 2)))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* -1 (pow (sin phi1) 2))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (+ (* -1 (pow (sin phi1) 2)) (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (* 1/2 (pow (sin phi1) 2)) 1/2))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (+ (* -1 (pow (sin phi1) 2)) (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (+ (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/2 (pow (sin phi1) 2))) 1/2))))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* -1/2 (* delta (sin phi1))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (* (cos phi1) (cos theta)))))) (* (cos phi1) (cos theta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1))))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (cos phi1))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* -1/6 (* (pow theta 2) (cos phi1)))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* (pow theta 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow theta 2) (cos phi1)))))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* (pow theta 2) (+ (* -1/6 (cos phi1)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin phi1)))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (* phi1 (sin delta)) (cos theta)) #s(hole binary64 (* phi1 (sin delta))))
#s(approx (* (* phi1 (sin delta)) (cos theta)) #s(hole binary64 (+ (* -1/2 (* phi1 (* (pow theta 2) (sin delta)))) (* phi1 (sin delta)))))
#s(approx (* (* phi1 (sin delta)) (cos theta)) #s(hole binary64 (+ (* phi1 (sin delta)) (* (pow theta 2) (+ (* -1/2 (* phi1 (sin delta))) (* 1/24 (* phi1 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (* phi1 (sin delta)) (cos theta)) #s(hole binary64 (+ (* phi1 (sin delta)) (* (pow theta 2) (+ (* -1/2 (* phi1 (sin delta))) (* (pow theta 2) (+ (* -1/720 (* phi1 (* (pow theta 2) (sin delta)))) (* 1/24 (* phi1 (sin delta))))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* 1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta)))))))))))

Outputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (+.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 (fma.f64 #s(literal -1/2 binary64) (PI.f64) (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))))) (+.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 (fma.f64 #s(literal -1/2 binary64) (PI.f64) (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) (cos.f64 delta))) lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (fma.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (fma.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))))) (fma.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 (fma.f64 #s(literal -1/2 binary64) (PI.f64) (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) (cos.f64 delta))) lambda1) lambda1 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) (neg.f64 lambda1)) #s(literal 1 binary64))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) (neg.f64 lambda1)) #s(literal 1 binary64))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))))) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 (fma.f64 #s(literal -1/2 binary64) (PI.f64) (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))) (cos.f64 delta))) (neg.f64 lambda1)) #s(literal 1 binary64))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta)))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) #s(literal -2/3 binary64))) phi1 (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))) phi1))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/3 binary64) phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) #s(literal -2/3 binary64)))) phi1 (cos.f64 delta)) phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))) phi1))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1) #s(literal -1/2 binary64))) (.f64 phi1 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta)) (.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) (pow.f64 phi1 #s(literal 4 binary64)))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
#s(approx (atan2 (* (* (cos phi1) (sin theta)) (sin delta)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1) #s(literal -1/2 binary64))) (.f64 phi1 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta)) (.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) (pow.f64 phi1 #s(literal 4 binary64)))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (sin theta)))
#s(approx (* (cos phi1) (sin theta)) (sin.f64 theta))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* -1/2 (* (pow phi1 2) (sin theta))))))
#s(approx (* (cos phi1) (sin theta)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 theta)))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* (pow phi1 2) (+ (* -1/2 (sin theta)) (* 1/24 (* (pow phi1 2) (sin theta))))))))
#s(approx (* (cos phi1) (sin theta)) (fma.f64 (.f64 (sin.f64 theta) (fma.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1) #s(literal -1/2 binary64))) (*.f64 phi1 phi1) (sin.f64 theta)))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* (pow phi1 2) (+ (* -1/2 (sin theta)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin theta))) (* 1/24 (sin theta)))))))))
#s(approx (* (cos phi1) (sin theta)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 theta) (.f64 (.f64 (sin.f64 theta) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) (pow.f64 phi1 #s(literal 4 binary64)))))
#s(approx (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))) #s(hole binary64 (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))
#s(approx (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal -1/2 binary64) (PI.f64) (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) (cos.f64 delta))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) (fma.f64 (neg.f64 phi1) (sin.f64 (fma.f64 #s(literal -1/2 binary64) (PI.f64) (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) (cos.f64 delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* 1/6 (* (pow phi1 2) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) (fma.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) (.f64 phi1 phi1)) (sin.f64 (fma.f64 #s(literal -1/2 binary64) (PI.f64) (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))) (sin.f64 (fma.f64 #s(literal -1/2 binary64) (PI.f64) (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))) phi1 (cos.f64 delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* (pow phi1 2) (- (* -1/120 (* (pow phi1 2) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))) (* -1/6 (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) (fma.f64 (-.f64 (.f64 (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) (PI.f64) (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) (fma.f64 #s(literal -1/120 binary64) (.f64 phi1 phi1) #s(literal 1/6 binary64))) (.f64 phi1 phi1)) (sin.f64 (fma.f64 #s(literal -1/2 binary64) (PI.f64) (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))) phi1 (cos.f64 delta)))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 (fma.f64 #s(literal -1/2 binary64) (PI.f64) (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) (cos.f64 delta))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (neg.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta)))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (neg.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (*.f64 (cos.f64 delta) phi1))) phi1 (cos.f64 delta)))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (fma.f64 (neg.f64 (cos.f64 theta)) (sin.f64 delta) (.f64 (-.f64 (.f64 (neg.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) #s(literal -2/3 binary64)))) (cos.f64 delta)) phi1)) phi1 (cos.f64 delta)))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta)))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) #s(literal -2/3 binary64))) (pow.f64 phi1 #s(literal 3 binary64)) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (* 1/12 (* (cos theta) (sin delta)))))))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (fma.f64 (fma.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2/15 binary64)) (.f64 phi1 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) #s(literal -2/3 binary64)))) (.f64 phi1 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) phi1))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (+ (* 1/12 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/144 (* (cos theta) (sin delta))) (+ (* -1/240 (* (cos theta) (sin delta))) (+ (* -1/720 (* (cos theta) (sin delta))) (* -1/5040 (* (cos theta) (sin delta))))))))))))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2/15 binary64) (.f64 (fma.f64 (.f64 #s(literal -1/144 binary64) (cos.f64 theta)) (sin.f64 delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -29/5040 binary64))) (.f64 phi1 phi1))) (.f64 phi1 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) #s(literal -2/3 binary64)))) (.f64 phi1 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) phi1))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta)))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) #s(literal -2/3 binary64))) phi1 (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))) phi1))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/3 binary64) phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) #s(literal -2/3 binary64)))) phi1 (cos.f64 delta)) phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))) phi1))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (neg.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (neg.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (*.f64 (cos.f64 delta) phi1))) phi1 (cos.f64 delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (fma.f64 (neg.f64 (cos.f64 theta)) (sin.f64 delta) (.f64 (-.f64 (.f64 (neg.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) #s(literal -2/3 binary64)))) (cos.f64 delta)) phi1)) phi1 (cos.f64 delta)))
#s(approx (* (* phi1 (sin delta)) (cos theta)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (* phi1 (sin delta)) (cos theta)) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta)))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (neg.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta)))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* phi1 (+ (* -1 (* phi1 (cos delta))) (* -1 (* (cos theta) (sin delta))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (neg.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (*.f64 (cos.f64 delta) phi1))) phi1 (cos.f64 delta)))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* phi1 (+ (* -1 (cos delta)) (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (fma.f64 (neg.f64 (cos.f64 theta)) (sin.f64 delta) (.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) #s(literal -2/3 binary64))) phi1 (cos.f64 delta))) phi1)) phi1 (cos.f64 delta)))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (cos.f64 theta) (sin.f64 delta) (*.f64 (cos.f64 delta) phi1)))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (.f64 (sin.f64 delta) phi1) (cos.f64 delta)) phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* phi1 (cos delta))))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 delta) phi1))) phi1 (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)) #s(hole binary64 (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))
#s(approx (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)) (fma.f64 #s(literal -1/2 binary64) (PI.f64) (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
#s(approx (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))) #s(hole binary64 (* phi1 (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))) (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) (PI.f64) (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))) phi1))
#s(approx (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))) (* -1/6 (* (pow phi1 2) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))))))
#s(approx (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 (fma.f64 #s(literal -1/2 binary64) (PI.f64) (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))) phi1))
#s(approx (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))) (* (pow phi1 2) (+ (* -1/6 (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))) (* 1/120 (* (pow phi1 2) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))))))))
#s(approx (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))) (.f64 (fma.f64 (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) (PI.f64) (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) (fma.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1) #s(literal -1/6 binary64))) (.f64 phi1 phi1) (sin.f64 (fma.f64 #s(literal -1/2 binary64) (PI.f64) (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))) phi1))
#s(approx (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))) (* (pow phi1 2) (+ (* -1/6 (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))) (* 1/120 (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))))))))))
#s(approx (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))) (.f64 (fma.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 (fma.f64 #s(literal -1/2 binary64) (PI.f64) (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) (.f64 (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) (PI.f64) (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) (fma.f64 #s(literal -1/5040 binary64) (*.f64 phi1 phi1) #s(literal 1/120 binary64))) (pow.f64 phi1 #s(literal 4 binary64)))) phi1))
#s(approx (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) #s(hole binary64 (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* (cos phi1) (sin theta))))
#s(approx (* (cos phi1) (sin theta)) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) (fma.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 (fma.f64 #s(literal -1/2 binary64) (PI.f64) (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) (cos.f64 delta)))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))))
#s(approx (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2)))) (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) (PI.f64) (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))) (sin.f64 phi1)))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (fma.f64 (.f64 delta (cos.f64 phi1)) (.f64 (cos.f64 theta) (sin.f64 phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)))) delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 delta (cos.f64 phi1)) (sin.f64 theta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 theta))) delta))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (fma.f64 #s(literal 1/120 binary64) (.f64 delta delta) #s(literal -1/6 binary64))) (pow.f64 delta #s(literal 3 binary64)) (.f64 (*.f64 delta (cos.f64 phi1)) (sin.f64 theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 theta)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (fma.f64 #s(literal -1/5040 binary64) (*.f64 delta delta) #s(literal 1/120 binary64))) (pow.f64 delta #s(literal 4 binary64)))) delta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 theta) delta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 delta delta) #s(literal 1 binary64)) (sin.f64 theta)) delta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin theta) (sin delta)) (fma.f64 (.f64 (sin.f64 theta) (fma.f64 #s(literal 1/120 binary64) (.f64 delta delta) #s(literal -1/6 binary64))) (pow.f64 delta #s(literal 3 binary64)) (*.f64 (sin.f64 theta) delta)))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)) (sin.f64 theta) (.f64 (.f64 (sin.f64 theta) (fma.f64 #s(literal -1/5040 binary64) (*.f64 delta delta) #s(literal 1/120 binary64))) (pow.f64 delta #s(literal 4 binary64)))) delta))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 delta (cos.f64 phi1)) (sin.f64 theta)))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 theta))) delta))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (fma.f64 #s(literal 1/120 binary64) (.f64 delta delta) #s(literal -1/6 binary64))) (pow.f64 delta #s(literal 3 binary64)) (.f64 (*.f64 delta (cos.f64 phi1)) (sin.f64 theta))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 theta)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (fma.f64 #s(literal -1/5040 binary64) (*.f64 delta delta) #s(literal 1/120 binary64))) (pow.f64 delta #s(literal 4 binary64)))) delta))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) #s(hole binary64 (- 1 (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) (fma.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 (fma.f64 #s(literal -1/2 binary64) (PI.f64) (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) #s(literal 1 binary64)))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) #s(hole binary64 (- (+ 1 (* -1/2 (pow delta 2))) (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) (fma.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 (fma.f64 #s(literal -1/2 binary64) (PI.f64) (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) (fma.f64 (*.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))) (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) (fma.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 (fma.f64 #s(literal -1/2 binary64) (PI.f64) (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) (fma.f64 (-.f64 (.f64 (.f64 delta delta) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 delta delta) #s(literal 1 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2))) (* (sin phi1) (sin (- (acos (neg (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* 1/2 (PI))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))) (fma.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 (fma.f64 #s(literal -1/2 binary64) (PI.f64) (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 delta delta) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 delta delta)) #s(literal 1/2 binary64)) (.f64 delta delta) #s(literal 1 binary64))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (neg.f64 delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi1))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (-.f64 (.f64 (neg.f64 delta) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta (.f64 (cos.f64 phi1) (cos.f64 phi1))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (fma.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 theta)) (sin.f64 phi1) (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (-.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64))) delta)) delta (*.f64 (cos.f64 phi1) (cos.f64 phi1))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 delta (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* 1/120 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1)))))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (fma.f64 (.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (fma.f64 #s(literal 1/120 binary64) (.f64 delta delta) #s(literal -1/6 binary64))) (pow.f64 delta #s(literal 3 binary64)) (.f64 (.f64 delta (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/120 (* (cos phi1) (* (cos theta) (sin phi1))))))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (fma.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (.f64 (.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (fma.f64 #s(literal -1/5040 binary64) (*.f64 delta delta) #s(literal 1/120 binary64))) (pow.f64 delta #s(literal 4 binary64)))) delta))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (.f64 delta (cos.f64 phi1)) (.f64 (cos.f64 theta) (sin.f64 phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)))) delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (neg.f64 delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi1))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (-.f64 (.f64 (neg.f64 delta) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta (.f64 (cos.f64 phi1) (cos.f64 phi1))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (fma.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 theta)) (sin.f64 phi1) (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (-.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64))) delta)) delta (*.f64 (cos.f64 phi1) (cos.f64 phi1))))
#s(approx (* (* phi1 (sin delta)) (cos theta)) #s(hole binary64 (* delta (* phi1 (cos theta)))))
#s(approx (* (* phi1 (sin delta)) (cos theta)) (.f64 (.f64 (cos.f64 theta) phi1) delta))
#s(approx (* (* phi1 (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* phi1 (cos theta)))) (* phi1 (cos theta))))))
#s(approx (* (* phi1 (sin delta)) (cos theta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)) (.f64 (cos.f64 theta) phi1)) delta))
#s(approx (* (* phi1 (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* phi1 (cos theta)) (* (pow delta 2) (+ (* -1/6 (* phi1 (cos theta))) (* 1/120 (* (pow delta 2) (* phi1 (cos theta))))))))))
#s(approx (* (* phi1 (sin delta)) (cos theta)) (fma.f64 (.f64 (.f64 (cos.f64 theta) phi1) (fma.f64 #s(literal 1/120 binary64) (.f64 delta delta) #s(literal -1/6 binary64))) (pow.f64 delta #s(literal 3 binary64)) (.f64 (*.f64 (cos.f64 theta) phi1) delta)))
#s(approx (* (* phi1 (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* phi1 (cos theta)) (* (pow delta 2) (+ (* -1/6 (* phi1 (cos theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* phi1 (cos theta)))) (* 1/120 (* phi1 (cos theta)))))))))))
#s(approx (* (* phi1 (sin delta)) (cos theta)) (.f64 (fma.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)) (.f64 (cos.f64 theta) phi1) (.f64 (.f64 (.f64 (cos.f64 theta) phi1) (fma.f64 #s(literal -1/5040 binary64) (*.f64 delta delta) #s(literal 1/120 binary64))) (pow.f64 delta #s(literal 4 binary64)))) delta))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (* -1 (pow (sin phi1) 2)))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* -1 (pow (sin phi1) 2))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (neg.f64 delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi1))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (+ (* -1 (pow (sin phi1) 2)) (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (* 1/2 (pow (sin phi1) 2)) 1/2))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (fma.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 theta)) (sin.f64 phi1) (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64)) delta)) delta (.f64 (cos.f64 phi1) (cos.f64 phi1))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (+ (* -1 (pow (sin phi1) 2)) (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (+ (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/2 (pow (sin phi1) 2))) 1/2))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (fma.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 theta)) (sin.f64 phi1) (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (-.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64))) delta)) delta (*.f64 (cos.f64 phi1) (cos.f64 phi1))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 phi1))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 delta (cos.f64 phi1)) (cos.f64 theta) (sin.f64 phi1)))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* -1/2 (* delta (sin phi1))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (cos.f64 phi1))) delta (sin.f64 phi1)))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (* (cos phi1) (cos theta)))))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (fma.f64 (fma.f64 (.f64 delta (cos.f64 phi1)) (.f64 (cos.f64 theta) #s(literal -1/6 binary64)) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1))) delta (.f64 (cos.f64 theta) (cos.f64 phi1))) delta (sin.f64 phi1)))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1) (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(literal 1/24 binary64) (.f64 theta theta) #s(literal -1/2 binary64))) (*.f64 theta theta))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1))))))))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(literal -1/720 binary64) (.f64 theta theta) #s(literal 1/24 binary64))) (pow.f64 theta #s(literal 4 binary64))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) theta) (sin.f64 delta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta))) theta))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 #s(literal 1/120 binary64) (.f64 theta theta) #s(literal -1/6 binary64))) (pow.f64 theta #s(literal 3 binary64)) (.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 #s(literal -1/5040 binary64) (*.f64 theta theta) #s(literal 1/120 binary64))) (pow.f64 theta #s(literal 4 binary64)))) theta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin theta) (sin delta)) (fma.f64 (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/120 binary64) (.f64 theta theta) #s(literal -1/6 binary64))) (pow.f64 theta #s(literal 3 binary64)) (*.f64 (sin.f64 delta) theta)))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta) (.f64 (.f64 (sin.f64 delta) (fma.f64 #s(literal -1/5040 binary64) (*.f64 theta theta) #s(literal 1/120 binary64))) (pow.f64 theta #s(literal 4 binary64)))) theta))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) theta) (sin.f64 delta)))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta))) theta))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 #s(literal 1/120 binary64) (.f64 theta theta) #s(literal -1/6 binary64))) (pow.f64 theta #s(literal 3 binary64)) (.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 #s(literal -1/5040 binary64) (*.f64 theta theta) #s(literal 1/120 binary64))) (pow.f64 theta #s(literal 4 binary64)))) theta))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (cos phi1))))
#s(approx (* (cos phi1) (sin theta)) (*.f64 (cos.f64 phi1) theta))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* -1/6 (* (pow theta 2) (cos phi1)))))))
#s(approx (* (cos phi1) (sin theta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 theta theta) #s(literal 1 binary64)) (cos.f64 phi1)) theta))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* (pow theta 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow theta 2) (cos phi1)))))))))
#s(approx (* (cos phi1) (sin theta)) (fma.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal 1/120 binary64) (.f64 theta theta) #s(literal -1/6 binary64))) (pow.f64 theta #s(literal 3 binary64)) (*.f64 (cos.f64 phi1) theta)))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* (pow theta 2) (+ (* -1/6 (cos phi1)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (* (cos phi1) (sin theta)) (.f64 (fma.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/5040 binary64) (*.f64 theta theta) #s(literal 1/120 binary64))) (pow.f64 theta #s(literal 4 binary64)))) theta))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(literal -1/24 binary64) (.f64 theta theta) #s(literal 1/2 binary64))) (.f64 theta theta) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (+.f64 (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))) (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(literal 1/720 binary64) (*.f64 theta theta) #s(literal -1/24 binary64))) (pow.f64 theta #s(literal 4 binary64)))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin phi1)))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(literal 1/24 binary64) (.f64 theta theta) #s(literal -1/2 binary64))) (.f64 theta theta) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(literal -1/720 binary64) (.f64 theta theta) #s(literal 1/24 binary64))) (pow.f64 theta #s(literal 4 binary64)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1) (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(literal 1/24 binary64) (.f64 theta theta) #s(literal -1/2 binary64))) (*.f64 theta theta))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(literal -1/720 binary64) (.f64 theta theta) #s(literal 1/24 binary64))) (pow.f64 theta #s(literal 4 binary64))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(literal -1/24 binary64) (.f64 theta theta) #s(literal 1/2 binary64))) (.f64 theta theta) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+.f64 (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))) (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(literal 1/720 binary64) (*.f64 theta theta) #s(literal -1/24 binary64))) (pow.f64 theta #s(literal 4 binary64)))))
#s(approx (* (* phi1 (sin delta)) (cos theta)) #s(hole binary64 (* phi1 (sin delta))))
#s(approx (* (* phi1 (sin delta)) (cos theta)) (*.f64 (sin.f64 delta) phi1))
#s(approx (* (* phi1 (sin delta)) (cos theta)) #s(hole binary64 (+ (* -1/2 (* phi1 (* (pow theta 2) (sin delta)))) (* phi1 (sin delta)))))
#s(approx (* (* phi1 (sin delta)) (cos theta)) (fma.f64 (.f64 (.f64 theta (.f64 (sin.f64 delta) theta)) phi1) #s(literal -1/2 binary64) (.f64 (sin.f64 delta) phi1)))
#s(approx (* (* phi1 (sin delta)) (cos theta)) #s(hole binary64 (+ (* phi1 (sin delta)) (* (pow theta 2) (+ (* -1/2 (* phi1 (sin delta))) (* 1/24 (* phi1 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (* phi1 (sin delta)) (cos theta)) (fma.f64 (fma.f64 (.f64 (.f64 theta (.f64 (sin.f64 delta) theta)) phi1) #s(literal 1/24 binary64) (.f64 (.f64 (sin.f64 delta) phi1) #s(literal -1/2 binary64))) (.f64 theta theta) (*.f64 (sin.f64 delta) phi1)))
#s(approx (* (* phi1 (sin delta)) (cos theta)) #s(hole binary64 (+ (* phi1 (sin delta)) (* (pow theta 2) (+ (* -1/2 (* phi1 (sin delta))) (* (pow theta 2) (+ (* -1/720 (* phi1 (* (pow theta 2) (sin delta)))) (* 1/24 (* phi1 (sin delta))))))))))
#s(approx (* (* phi1 (sin delta)) (cos theta)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) (sin.f64 delta) (.f64 (fma.f64 (.f64 (.f64 theta (.f64 (sin.f64 delta) theta)) phi1) #s(literal -1/720 binary64) (.f64 (.f64 (sin.f64 delta) phi1) #s(literal 1/24 binary64))) (.f64 theta theta))) (.f64 theta theta) (.f64 (sin.f64 delta) phi1)))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(literal -1/24 binary64) (.f64 theta theta) #s(literal 1/2 binary64))) (.f64 theta theta) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* 1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (+.f64 (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))) (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(literal 1/720 binary64) (*.f64 theta theta) #s(literal -1/24 binary64))) (pow.f64 theta #s(literal 4 binary64)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 theta (.f64 (sin.f64 delta) theta)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 #s(literal 1/24 binary64) (.f64 theta theta) #s(literal -1/2 binary64))) (.f64 theta theta) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta)))))))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 #s(literal -1/720 binary64) (.f64 theta theta) #s(literal 1/24 binary64))) (.f64 theta theta))) (.f64 theta theta) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta)))))

rewrite188.0ms (1.4%)

Memory

30.2MiB live, 162.7MiB allocated; 20ms collecting garbage

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	66	618
0	109	553
1	450	553
2	3089	548
0	8375	548

Stop Event

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

Counts

26 → 484

Calls

Call 1

Inputs
(fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta)))))
(*.f64 (sin.f64 theta) (sin.f64 delta))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta)))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
(*.f64 (cos.f64 phi1) (sin.f64 theta))
(sin.f64 (-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))
(.f64 (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta)))
(-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))
(.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))
(fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))
(fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64)))
(.f64 (sin.f64 phi1) (sin.f64 (-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))

Outputs
(.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1))
(.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64))) (sin.f64 phi1)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (sin.f64 phi1)) (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (sin.f64 phi1)) (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))) (pow.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (sin.f64 phi1)) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64))))
(/.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))
(/.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))))
(/.f64 (.f64 (sin.f64 phi1) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)))) (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))) (pow.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))))
(/.f64 (.f64 (sin.f64 phi1) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)))) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))
(/.f64 (-.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) (.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) #s(literal 2 binary64)))) (neg.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))) (cos.f64 (+.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) phi1)))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) phi1)) (cos.f64 (+.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) phi1))) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) #s(literal 2 binary64))) (.f64 (sin.f64 phi1) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) (cos.f64 theta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(literal 2 binary64))))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))) (cos.f64 (+.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) phi1))) #s(literal 2 binary64))
(fma.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 phi1) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 delta) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (.f64 (sin.f64 phi1) (cos.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (.f64 (sin.f64 phi1) (cos.f64 theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 delta)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (sin.f64 phi1)))
(fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)))
(fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 phi1) (sin.f64 phi1)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1)) (cos.f64 theta) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1) (.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 delta)) (.f64 (cos.f64 phi1) (cos.f64 theta)))) (sin.f64 phi1)))
(fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 phi1)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (cos.f64 theta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (sin.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 delta)) (.f64 (cos.f64 phi1) (cos.f64 theta)))) (sin.f64 phi1)))
(fma.f64 (sin.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)))
(fma.f64 (sin.f64 phi1) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 delta)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (sin.f64 phi1)))
(fma.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)))
(-.f64 (/.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (/.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))
(-.f64 (/.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) phi1)) #s(literal 2 binary64)))
(-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) (.f64 (neg.f64 (cos.f64 theta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1))))
(-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) (.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta))))
(-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 delta)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) (neg.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))
(+.f64 (/.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(literal 2 binary64)))))
(+.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) (.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 delta)) (.f64 (cos.f64 phi1) (cos.f64 theta)))) (sin.f64 phi1)))
(+.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)))
(+.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) lambda1))
(/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64)))) (neg.f64 (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) lambda1) (*.f64 lambda1 lambda1))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta)))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) lambda1))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) lambda1) (*.f64 lambda1 lambda1)))
(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))))))
(+.f64 (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) lambda1) (.f64 lambda1 lambda1))) (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) lambda1) (.f64 lambda1 lambda1))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta)))
(.f64 (.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) (sin.f64 delta)))
(.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (cos.f64 phi1)))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 phi1 delta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal 2 binary64))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) lambda1))
(/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64)))) (neg.f64 (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) lambda1) (*.f64 lambda1 lambda1))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta)))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) lambda1))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) lambda1) (*.f64 lambda1 lambda1)))
(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))))))
(+.f64 (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) lambda1) (.f64 lambda1 lambda1))) (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) lambda1) (*.f64 lambda1 lambda1))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta)))))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64))
(-.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 theta delta)) #s(literal 2 binary64)))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta)))
(.f64 (.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) (sin.f64 delta)))
(.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (cos.f64 phi1)))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 phi1 delta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal 2 binary64))
(*.f64 (sin.f64 theta) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (sin.f64 theta))
(/.f64 (+.f64 (sin.f64 (-.f64 theta (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 theta (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 theta (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 theta (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) theta)) (cos.f64 (+.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) theta))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 theta (neg.f64 phi1))) (sin.f64 (+.f64 theta (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 theta (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (cos.f64 (+.f64 theta (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) theta)) (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) theta))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 0 binary64)) (.f64 (sin.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 0 binary64))) (.f64 (.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))) (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 delta)) (.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (neg.f64 (sin.f64 delta)) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 0 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 0 binary64)) (.f64 (sin.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 0 binary64)) (fma.f64 (.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (.f64 (.f64 (sin.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 0 binary64)) (.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64)))) (neg.f64 (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (pow.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (pow.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64))))
(fma.f64 (sin.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 0 binary64) (.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(fma.f64 (sin.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 0 binary64) (.f64 (neg.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 1 binary64)))
(fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1) (.f64 (neg.f64 (neg.f64 (cos.f64 delta))) (sin.f64 phi1)))
(fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1) (.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) (cos.f64 delta)))
(fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 #s(literal 0 binary64) (sin.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(fma.f64 #s(literal 0 binary64) (sin.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (.f64 (neg.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 1 binary64)))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta) (.f64 (neg.f64 (neg.f64 (cos.f64 delta))) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta) (.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) (cos.f64 delta)))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (neg.f64 (neg.f64 (cos.f64 delta))) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) (cos.f64 delta)))
(fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (neg.f64 (neg.f64 (cos.f64 delta))) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) (cos.f64 delta)))
(fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (neg.f64 (neg.f64 (cos.f64 delta))) (sin.f64 phi1)))
(fma.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) (cos.f64 delta)))
(fma.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (neg.f64 (neg.f64 (cos.f64 delta))) (sin.f64 phi1)))
(fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) (cos.f64 delta)))
(fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 delta)) (cos.f64 phi1))) (cos.f64 theta)))
(fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))
(fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 delta)) (cos.f64 phi1))) (cos.f64 theta)))
(fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))
(sin.f64 (+.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(-.f64 (.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (.f64 (sin.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 0 binary64)))
(-.f64 (.f64 (sin.f64 (/.f64 (pow.f64 (acos.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 2 binary64)) (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))) (cos.f64 (/.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))) (.f64 (cos.f64 (/.f64 (pow.f64 (acos.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 2 binary64)) (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))) (sin.f64 (/.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
(-.f64 (.f64 (sin.f64 (/.f64 (pow.f64 (acos.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 3 binary64)) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (pow.f64 (acos.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 2 binary64))))) (cos.f64 (/.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (pow.f64 (acos.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 2 binary64)))))) (.f64 (cos.f64 (/.f64 (pow.f64 (acos.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 3 binary64)) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (pow.f64 (acos.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 2 binary64))))) (sin.f64 (/.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (pow.f64 (acos.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 2 binary64)))))))
(-.f64 (.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))) (.f64 (sin.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 0 binary64)))
(-.f64 (.f64 #s(literal 0 binary64) (cos.f64 (+.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 #s(literal -1 binary64) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64)) (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)))))
(-.f64 (.f64 (sin.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 0 binary64)) (.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))
(-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (neg.f64 (sin.f64 delta)) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(-.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)))
(cos.f64 (neg.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))
(cos.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))) (pow.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)))))
(+.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (pow.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 0 binary64)) (.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(+.f64 (.f64 (sin.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 0 binary64)) (.f64 (neg.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (neg.f64 (*.f64 (neg.f64 (sin.f64 delta)) (cos.f64 phi1))) (cos.f64 theta)))
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (*.f64 (neg.f64 (neg.f64 (cos.f64 delta))) (sin.f64 phi1)))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (*.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) (cos.f64 delta)))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))
(/.f64 (-.f64 (.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) #s(literal 2 binary64))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (+.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (neg.f64 (-.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (cos.f64 delta))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (cos.f64 delta) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta)))
(/.f64 (-.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (-.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (cos.f64 delta)))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (-.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (neg.f64 (sin.f64 phi1)) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))))))
(/.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64))))
(fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 phi1) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 delta) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) (cos.f64 theta) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta)) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 delta)) (.f64 (cos.f64 phi1) (cos.f64 theta)) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 phi1) (neg.f64 (sin.f64 phi1))) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (.f64 (neg.f64 (sin.f64 delta)) (.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (sin.f64 phi1) (cos.f64 delta))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (sin.f64 delta) (neg.f64 (sin.f64 phi1))) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))
(fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (neg.f64 (sin.f64 phi1)) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (neg.f64 (sin.f64 phi1))) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (neg.f64 (sin.f64 phi1))) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (cos.f64 theta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (neg.f64 (sin.f64 phi1))) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (sin.f64 phi1) (.f64 (neg.f64 (sin.f64 delta)) (.f64 (cos.f64 phi1) (cos.f64 theta))) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (sin.f64 phi1) (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (cos.f64 delta))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta))) (/.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta))))
(-.f64 (/.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (cos.f64 delta))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (-.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (cos.f64 delta))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)))
(-.f64 (cos.f64 delta) (.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(-.f64 (cos.f64 delta) (.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1))))
(-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)))
(+.f64 (+.f64 (cos.f64 delta) (.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))
(+.f64 (/.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64)))))
(+.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (.f64 (neg.f64 (cos.f64 theta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1))))
(+.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta))))
(+.f64 (.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta))) (fma.f64 (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(+.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (cos.f64 delta))
(+.f64 (cos.f64 delta) (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) lambda1))
(/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64)))) (neg.f64 (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) lambda1) (*.f64 lambda1 lambda1))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta)))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) lambda1))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) lambda1) (*.f64 lambda1 lambda1)))
(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))))))
(+.f64 (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) lambda1) (.f64 lambda1 lambda1))) (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) lambda1) (.f64 lambda1 lambda1))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta)))
(/.f64 (-.f64 (.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) #s(literal 2 binary64))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (+.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (neg.f64 (-.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (cos.f64 delta))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (cos.f64 delta) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta)))
(/.f64 (-.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (-.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (cos.f64 delta)))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (-.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (neg.f64 (sin.f64 phi1)) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))))))
(/.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64))))
(fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 phi1) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 delta) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) (cos.f64 theta) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta)) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 delta)) (.f64 (cos.f64 phi1) (cos.f64 theta)) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 phi1) (neg.f64 (sin.f64 phi1))) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (.f64 (neg.f64 (sin.f64 delta)) (.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (sin.f64 phi1) (cos.f64 delta))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (sin.f64 delta) (neg.f64 (sin.f64 phi1))) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))
(fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (neg.f64 (sin.f64 phi1)) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (neg.f64 (sin.f64 phi1))) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (neg.f64 (sin.f64 phi1))) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (cos.f64 theta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (neg.f64 (sin.f64 phi1))) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (sin.f64 phi1) (.f64 (neg.f64 (sin.f64 delta)) (.f64 (cos.f64 phi1) (cos.f64 theta))) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (sin.f64 phi1) (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (cos.f64 delta))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta))) (/.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta))))
(-.f64 (/.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (cos.f64 delta))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (-.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (cos.f64 delta))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)))
(-.f64 (cos.f64 delta) (.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(-.f64 (cos.f64 delta) (.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1))))
(-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)))
(+.f64 (+.f64 (cos.f64 delta) (.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))
(+.f64 (/.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64)))))
(+.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (.f64 (neg.f64 (cos.f64 theta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1))))
(+.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta))))
(+.f64 (.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta))) (fma.f64 (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(+.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (cos.f64 delta))
(+.f64 (cos.f64 delta) (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(.f64 (.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 phi1))
(.f64 (.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 delta))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 theta)))
(.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 theta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
(.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))
(.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1)) (cos.f64 theta))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (sin.f64 phi1)))
(.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 theta) (sin.f64 phi1)))
(.f64 (cos.f64 phi1) (.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 phi1)))
(.f64 (sin.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))
(.f64 (cos.f64 theta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1)))
(.f64 (sin.f64 phi1) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (neg.f64 (+.f64 #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))) (cos.f64 delta))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))) (+.f64 #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))) #s(literal 2 binary64))) (+.f64 #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))) (cos.f64 delta)))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))) #s(literal 3 binary64))) (fma.f64 #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))) (+.f64 #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))) (cos.f64 delta))) (/.f64 (pow.f64 #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))) #s(literal 2 binary64)) (+.f64 #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))) (cos.f64 delta))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))) (+.f64 #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (/.f64 (pow.f64 #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))) #s(literal 3 binary64)) (fma.f64 #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))) (+.f64 #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
(-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))
(.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))
(.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) phi1)
(.f64 (.f64 (sin.f64 delta) phi1) (cos.f64 theta))
(.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))
(.f64 (cos.f64 theta) (.f64 (sin.f64 delta) phi1))
(.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))
(/.f64 (-.f64 (.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) #s(literal 2 binary64))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (+.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (neg.f64 (-.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (cos.f64 delta))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (cos.f64 delta) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta)))
(/.f64 (-.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (-.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (cos.f64 delta)))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (-.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (neg.f64 (sin.f64 phi1)) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))))))
(/.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64))))
(fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 phi1) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 delta) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) (cos.f64 theta) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta)) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 delta)) (.f64 (cos.f64 phi1) (cos.f64 theta)) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 phi1) (neg.f64 (sin.f64 phi1))) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (.f64 (neg.f64 (sin.f64 delta)) (.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (sin.f64 phi1) (cos.f64 delta))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (sin.f64 delta) (neg.f64 (sin.f64 phi1))) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))
(fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (neg.f64 (sin.f64 phi1)) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (neg.f64 (sin.f64 phi1))) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (neg.f64 (sin.f64 phi1))) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (cos.f64 theta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (neg.f64 (sin.f64 phi1))) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (sin.f64 phi1) (.f64 (neg.f64 (sin.f64 delta)) (.f64 (cos.f64 phi1) (cos.f64 theta))) (fma.f64 (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (sin.f64 phi1) (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (cos.f64 delta))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta))) (/.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta))))
(-.f64 (/.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (cos.f64 delta))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (-.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (cos.f64 delta))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)))
(-.f64 (cos.f64 delta) (.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(-.f64 (cos.f64 delta) (.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1))))
(-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)))
(+.f64 (+.f64 (cos.f64 delta) (.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))
(+.f64 (/.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64)))))
(+.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (.f64 (neg.f64 (cos.f64 theta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1))))
(+.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta))))
(+.f64 (.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta))) (fma.f64 (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
(+.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (cos.f64 delta))
(+.f64 (cos.f64 delta) (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 0 binary64)) (.f64 (sin.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 0 binary64))) (.f64 (.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))) (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 delta)) (.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (neg.f64 (sin.f64 delta)) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 0 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 0 binary64)) (.f64 (sin.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 0 binary64)) (fma.f64 (.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (.f64 (.f64 (sin.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 0 binary64)) (.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64)))) (neg.f64 (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (pow.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (pow.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64))))
(fma.f64 (sin.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 0 binary64) (.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(fma.f64 (sin.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 0 binary64) (.f64 (neg.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 1 binary64)))
(fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1) (.f64 (neg.f64 (neg.f64 (cos.f64 delta))) (sin.f64 phi1)))
(fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1) (.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) (cos.f64 delta)))
(fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 #s(literal 0 binary64) (sin.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(fma.f64 #s(literal 0 binary64) (sin.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (.f64 (neg.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 1 binary64)))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta) (.f64 (neg.f64 (neg.f64 (cos.f64 delta))) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta) (.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) (cos.f64 delta)))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (neg.f64 (neg.f64 (cos.f64 delta))) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) (cos.f64 delta)))
(fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (neg.f64 (neg.f64 (cos.f64 delta))) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) (cos.f64 delta)))
(fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (neg.f64 (neg.f64 (cos.f64 delta))) (sin.f64 phi1)))
(fma.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) (cos.f64 delta)))
(fma.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (neg.f64 (neg.f64 (cos.f64 delta))) (sin.f64 phi1)))
(fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) (cos.f64 delta)))
(fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 delta)) (cos.f64 phi1))) (cos.f64 theta)))
(fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))
(fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 delta)) (cos.f64 phi1))) (cos.f64 theta)))
(fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))
(sin.f64 (+.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(-.f64 (.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (.f64 (sin.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 0 binary64)))
(-.f64 (.f64 (sin.f64 (/.f64 (pow.f64 (acos.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 2 binary64)) (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))) (cos.f64 (/.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))) (.f64 (cos.f64 (/.f64 (pow.f64 (acos.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 2 binary64)) (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))) (sin.f64 (/.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
(-.f64 (.f64 (sin.f64 (/.f64 (pow.f64 (acos.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 3 binary64)) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (pow.f64 (acos.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 2 binary64))))) (cos.f64 (/.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (pow.f64 (acos.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 2 binary64)))))) (.f64 (cos.f64 (/.f64 (pow.f64 (acos.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 3 binary64)) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (pow.f64 (acos.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 2 binary64))))) (sin.f64 (/.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (pow.f64 (acos.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 2 binary64)))))))
(-.f64 (.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))) (.f64 (sin.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 0 binary64)))
(-.f64 (.f64 #s(literal 0 binary64) (cos.f64 (+.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 #s(literal -1 binary64) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64)) (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)))))
(-.f64 (.f64 (sin.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 0 binary64)) (.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))
(-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (neg.f64 (sin.f64 delta)) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(-.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)))
(cos.f64 (neg.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))
(cos.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))) (pow.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)))))
(+.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (pow.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 0 binary64)) (.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(+.f64 (.f64 (sin.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 0 binary64)) (.f64 (neg.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (neg.f64 (*.f64 (neg.f64 (sin.f64 delta)) (cos.f64 phi1))) (cos.f64 theta)))
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (*.f64 (neg.f64 (neg.f64 (cos.f64 delta))) (sin.f64 phi1)))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (*.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) (cos.f64 delta)))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))
(asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (acos.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)))) (neg.f64 (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (acos.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 3 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (pow.f64 (acos.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (acos.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64))) (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))
(/.f64 (-.f64 (pow.f64 (acos.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 3 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (pow.f64 (acos.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 2 binary64))))
(-.f64 (/.f64 (pow.f64 (acos.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 2 binary64)) (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))) (/.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))
(-.f64 (/.f64 (pow.f64 (acos.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 3 binary64)) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (pow.f64 (acos.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (pow.f64 (acos.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 2 binary64)))))
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (+.f64 (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (/.f64 (PI.f64) #s(literal 2 binary64))))
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(-.f64 (PI.f64) (+.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (/.f64 (PI.f64) #s(literal 2 binary64))))
(-.f64 (acos.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (/.f64 (PI.f64) #s(literal 2 binary64)))
(.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1))
(.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64))) (sin.f64 phi1)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (sin.f64 phi1)) (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (sin.f64 phi1)) (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))) (pow.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (sin.f64 phi1)) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64))))
(/.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))
(/.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))))
(/.f64 (.f64 (sin.f64 phi1) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)))) (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))) (pow.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))))
(/.f64 (.f64 (sin.f64 phi1) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)))) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))
(/.f64 (-.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) (.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) #s(literal 2 binary64)))) (neg.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))) (cos.f64 (+.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) phi1)))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) phi1)) (cos.f64 (+.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) phi1))) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) #s(literal 2 binary64))) (.f64 (sin.f64 phi1) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) (cos.f64 theta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(literal 2 binary64))))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))) (cos.f64 (+.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) phi1))) #s(literal 2 binary64))
(fma.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 phi1) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 delta) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (.f64 (sin.f64 phi1) (cos.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (.f64 (sin.f64 phi1) (cos.f64 theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 delta)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (sin.f64 phi1)))
(fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)))
(fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 phi1) (sin.f64 phi1)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1)) (cos.f64 theta) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1) (.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 delta)) (.f64 (cos.f64 phi1) (cos.f64 theta)))) (sin.f64 phi1)))
(fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 phi1)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (cos.f64 theta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (sin.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 delta)) (.f64 (cos.f64 phi1) (cos.f64 theta)))) (sin.f64 phi1)))
(fma.f64 (sin.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)))
(fma.f64 (sin.f64 phi1) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 delta)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (sin.f64 phi1)))
(fma.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)))
(-.f64 (/.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (/.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))
(-.f64 (/.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) phi1)) #s(literal 2 binary64)))
(-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) (.f64 (neg.f64 (cos.f64 theta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1))))
(-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) (.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta))))
(-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 delta)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) (neg.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))
(+.f64 (/.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(literal 2 binary64)))))
(+.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) (.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 delta)) (.f64 (cos.f64 phi1) (cos.f64 theta)))) (sin.f64 phi1)))
(+.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)))
(+.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))
(/.f64 (-.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))) (+.f64 (PI.f64) (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
(/.f64 (-.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (pow.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #s(literal 3 binary64))) (fma.f64 (PI.f64) (PI.f64) (fma.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (.f64 (PI.f64) (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))
(neg.f64 (acos.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))
(-.f64 (PI.f64) (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(fabs.f64 (remainder.f64 (acos.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (*.f64 #s(literal 2 binary64) (PI.f64))))
(+.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (/.f64 (PI.f64) #s(literal 2 binary64)))
(acos.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))

eval105.0ms (0.8%)

Memory: -43.1MiB live, 108.5MiB allocated; 11ms collecting garbage
Compiler: Compiled 26 765 to 2 438 computations (90.9% saved)

prune37.0ms (0.3%)

Memory

14.9MiB live, 62.0MiB allocated; 2ms collecting garbage

Pruning

27 alts after pruning (26 fresh and 1 done)

	Pruned	Kept	Total
New	461	24	485
Fresh	9	2	11
Picked	4	1	5
Done	0	0	0
Total	474	27	501

Accuracy

100.0%

Counts

501 → 27

Alt Table

Click to see full alt table

Status	Accuracy	Program
	39.0%	(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) lambda1) (*.f64 lambda1 lambda1)))
	99.9%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
	99.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))))))
▶	93.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))))))
	99.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (/.f64 (pow.f64 (acos.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 2 binary64)) (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))) (/.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))))))
	88.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 #s(approx (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
▶	92.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	93.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))
	80.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (* (* phi1 (sin delta)) (cos theta)) (.f64 (.f64 (cos.f64 theta) phi1) delta))))))
	84.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (* (* phi1 (sin delta)) (cos theta)) (*.f64 (sin.f64 delta) phi1))))))
	79.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))))
▶	88.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
▶	99.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))))
	72.6%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)) (sin.f64 theta)) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
	73.7%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
	99.5%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (fma.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1 lambda1))
	32.2%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
	32.3%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 (fma.f64 #s(literal -1/2 binary64) (PI.f64) (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) (cos.f64 delta))))
	32.2%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))))
	18.9%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 delta (cos.f64 phi1)) (cos.f64 theta) (sin.f64 phi1))) (cos.f64 delta))))
▶	26.4%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
	21.9%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 delta))))
	25.4%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 phi1)) (cos.f64 delta))))
	15.5%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (cos.f64 phi1)) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
	15.5%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (cos.f64 phi1) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
	19.0%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
✓	68.8%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

Compiler

Compiled 3 015 to 1 780 computations (41% saved)

simplify168.0ms (1.3%)

Memory

21.6MiB live, 116.9MiB allocated; 10ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
cost-diff	0	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1))))))
cost-diff	0	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))))))
cost-diff	1	(fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1))))
cost-diff	1	(-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))))
cost-diff	0	(*.f64 (cos.f64 phi1) (sin.f64 theta))
cost-diff	0	(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
cost-diff	0	(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta)))
cost-diff	0	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
cost-diff	0	(*.f64 (sin.f64 theta) (sin.f64 delta))
cost-diff	0	(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
cost-diff	0	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
cost-diff	0	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
cost-diff	0	(*.f64 (sin.f64 theta) (sin.f64 delta))
cost-diff	0	(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
cost-diff	0	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))
cost-diff	0	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
cost-diff	0	(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta))
cost-diff	0	(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))))
cost-diff	0	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))))
cost-diff	3	(fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	74	860
0	123	838
1	215	838
2	374	838
3	840	838
4	1804	832
5	3477	832
6	7102	832
0	8028	815

Stop Event

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

Calls

Call 1

Inputs
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))))
lambda1
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(cos.f64 phi1)
phi1
(sin.f64 delta)
delta
(sin.f64 theta)
theta
(-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))
(cos.f64 delta)
(fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))
(*.f64 (cos.f64 delta) (sin.f64 phi1))
(sin.f64 phi1)
(.f64 (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))
(.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))
(cos.f64 theta)
(*.f64 (sin.f64 delta) (cos.f64 phi1))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
lambda1
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(sin.f64 theta)
theta
(sin.f64 delta)
delta
(cos.f64 phi1)
phi1
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))
(cos.f64 delta)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
lambda1
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(sin.f64 theta)
theta
(sin.f64 delta)
delta
(cos.f64 phi1)
phi1
(-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(cos.f64 delta)
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(sin.f64 phi1)
#s(literal 2 binary64)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta)))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
(*.f64 (cos.f64 phi1) (sin.f64 theta))
(cos.f64 phi1)
phi1
(sin.f64 theta)
theta
(sin.f64 delta)
delta
(fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))
(neg.f64 (sin.f64 phi1))
(sin.f64 phi1)
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
(fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
(cos.f64 delta)
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))))))
lambda1
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1))))))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(sin.f64 theta)
theta
(sin.f64 delta)
delta
(cos.f64 phi1)
phi1
(-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))))
(cos.f64 delta)
(fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1))))
(*.f64 (cos.f64 delta) (sin.f64 phi1))
(sin.f64 phi1)
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))
(.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (sin.f64 phi1) (sin.f64 delta))

Outputs
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1)
lambda1
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(*.f64 (sin.f64 delta) (cos.f64 phi1))
(cos.f64 phi1)
phi1
(sin.f64 delta)
delta
(sin.f64 theta)
theta
(-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))
(fma.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(cos.f64 delta)
(fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))
(.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))
(*.f64 (cos.f64 delta) (sin.f64 phi1))
(*.f64 (sin.f64 phi1) (cos.f64 delta))
(sin.f64 phi1)
(.f64 (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))
(.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))
(cos.f64 theta)
(*.f64 (sin.f64 delta) (cos.f64 phi1))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) lambda1)
lambda1
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(sin.f64 theta)
theta
(sin.f64 delta)
delta
(cos.f64 phi1)
phi1
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))
(cos.f64 delta)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) lambda1)
lambda1
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(sin.f64 theta)
theta
(sin.f64 delta)
delta
(cos.f64 phi1)
phi1
(-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(cos.f64 delta)
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(sin.f64 phi1)
#s(literal 2 binary64)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta)))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (sin.f64 theta))
(*.f64 (sin.f64 theta) (cos.f64 phi1))
(cos.f64 phi1)
phi1
(sin.f64 theta)
theta
(sin.f64 delta)
delta
(fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))
(fma.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(neg.f64 (sin.f64 phi1))
(sin.f64 phi1)
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (sin.f64 delta) (cos.f64 phi1))))
(fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
(fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))
(cos.f64 delta)
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(*.f64 (sin.f64 delta) (cos.f64 phi1))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (cos.f64 delta) (cos.f64 phi1)) (cos.f64 phi1)) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1))))) lambda1)
lambda1
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (cos.f64 delta) (cos.f64 phi1)) (cos.f64 phi1)) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(sin.f64 theta)
theta
(sin.f64 delta)
delta
(cos.f64 phi1)
phi1
(-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))))
(-.f64 (.f64 (.f64 (cos.f64 delta) (cos.f64 phi1)) (cos.f64 phi1)) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1))))
(cos.f64 delta)
(fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1))))
(fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1))))
(*.f64 (cos.f64 delta) (sin.f64 phi1))
(*.f64 (sin.f64 phi1) (cos.f64 delta))
(sin.f64 phi1)
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))
(.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (sin.f64 phi1) (sin.f64 delta))

localize212.0ms (1.6%)

Memory

-12.5MiB live, 180.8MiB allocated; 26ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	0.19921875	(*.f64 (sin.f64 phi1) (sin.f64 delta))
accuracy	0.2471275879159781	(fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1))))
accuracy	0.3740377942638002	(-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))))
accuracy	24.38044936286864	#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))
accuracy	0.27181625976844204	(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
accuracy	0.4350518790888568	(fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))
accuracy	18.153846926336954	#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
accuracy	43.2834927706314	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
accuracy	0.1953125	(*.f64 (sin.f64 theta) (sin.f64 delta))
accuracy	0.21484375	(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
accuracy	0.3740377942638002	(-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
accuracy	34.955163180268165	#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
accuracy	0.09765625	(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
accuracy	0.12109375	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))
accuracy	0.1953125	(*.f64 (sin.f64 theta) (sin.f64 delta))
accuracy	24.723943976025804	#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))
accuracy	0.2471275879159781	(fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))
accuracy	0.25390625	(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta))
accuracy	0.26791000976844204	(.f64 (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))
accuracy	0.3740377942638002	(-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))

Samples

157.0ms

256×

valid

Compiler

Compiled 732 to 51 computations (93% saved)

Precisions

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

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

ival-add: 25.0ms (23.1% of total)

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

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

ival-atan2: 7.0ms (6.5% of total)

ival-asin: 3.0ms (2.8% of total)

ival-pow2: 3.0ms (2.8% of total)

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

ival-neg: 1.0ms (0.9% of total)

adjust: 0.0ms (0% of total)

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

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

exact: 0.0ms (0% of total)

series52.0ms (0.4%)

Memory

18.4MiB live, 64.1MiB allocated; 4ms collecting garbage

Counts

28 → 154

Calls

Call 1

Inputs
(fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))))
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta)))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
(*.f64 (cos.f64 phi1) (sin.f64 theta))
(-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))))
(fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1))))))
(-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))
(.f64 (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
(fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))
(*.f64 (sin.f64 phi1) (sin.f64 delta))

Outputs
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (atan2 (* (* (cos phi1) (sin theta)) (sin delta)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (sin theta)))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* -1/2 (* (pow phi1 2) (sin theta))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* (pow phi1 2) (+ (* -1/2 (sin theta)) (* 1/24 (* (pow phi1 2) (sin theta))))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* (pow phi1 2) (+ (* -1/2 (sin theta)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin theta))) (* 1/24 (sin theta)))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (* 1/12 (* (cos theta) (sin delta)))))))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (+ (* 1/12 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/144 (* (cos theta) (sin delta))) (+ (* -1/240 (* (cos theta) (sin delta))) (+ (* -1/720 (* (cos theta) (sin delta))) (* -1/5040 (* (cos theta) (sin delta))))))))))))))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow phi1 2)))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* phi1 (cos delta))))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (cos delta)))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* phi1 (+ (* -1 (* phi1 (cos delta))) (* -1 (* (cos theta) (sin delta))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* phi1 (+ (* -1 (cos delta)) (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* phi1 (sin delta))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* phi1 (+ (sin delta) (* -1/6 (* (pow phi1 2) (sin delta)))))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow phi1 2) (sin delta)))))))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/6 (sin delta)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* (cos phi1) (sin theta))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* (sin delta) (sin phi1))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* 1/120 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1)))))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/120 (* (cos phi1) (* (cos theta) (sin phi1))))))))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* -1/2 (* delta (sin phi1))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (* (cos phi1) (cos theta)))))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (* -1 (pow (sin phi1) 2)))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* -1 (pow (sin phi1) 2))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (+ (* -1 (pow (sin phi1) 2)) (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (* 1/2 (pow (sin phi1) 2)) 1/2))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (+ (* -1 (pow (sin phi1) 2)) (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (+ (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/2 (pow (sin phi1) 2))) 1/2))))))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* delta (sin phi1))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* delta (+ (sin phi1) (* -1/6 (* (pow delta 2) (sin phi1)))))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* delta (+ (sin phi1) (* (pow delta 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow delta 2) (sin phi1)))))))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* delta (+ (sin phi1) (* (pow delta 2) (+ (* -1/6 (sin phi1)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin phi1))) (* 1/120 (sin phi1))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1))))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (cos phi1))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* -1/6 (* (pow theta 2) (cos phi1)))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* (pow theta 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow theta 2) (cos phi1)))))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* (pow theta 2) (+ (* -1/6 (cos phi1)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin phi1)))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta)))))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* 1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))))

Calls

15 calls:

Time	Variable		Point	Expression
13.0ms	phi1	@	inf	((+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (* (* (cos phi1) (sin delta)) (sin theta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (cos phi1) (sin theta)) (sin delta)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta))) (* (* (cos phi1) (sin theta)) (sin delta)) (* (cos phi1) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (pow (sin phi1) 2) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (sin phi1) (sin delta)))
4.0ms	phi1	@	-inf	((+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (* (* (cos phi1) (sin delta)) (sin theta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (cos phi1) (sin theta)) (sin delta)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta))) (* (* (cos phi1) (sin theta)) (sin delta)) (* (cos phi1) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (pow (sin phi1) 2) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (sin phi1) (sin delta)))
4.0ms	delta	@	inf	((+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (* (* (cos phi1) (sin delta)) (sin theta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (cos phi1) (sin theta)) (sin delta)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta))) (* (* (cos phi1) (sin theta)) (sin delta)) (* (cos phi1) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (pow (sin phi1) 2) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (sin phi1) (sin delta)))
4.0ms	theta	@	inf	((+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (* (* (cos phi1) (sin delta)) (sin theta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (cos phi1) (sin theta)) (sin delta)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta))) (* (* (cos phi1) (sin theta)) (sin delta)) (* (cos phi1) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (pow (sin phi1) 2) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (sin phi1) (sin delta)))
4.0ms	theta	@	-inf	((+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (* (* (cos phi1) (sin delta)) (sin theta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (cos phi1) (sin theta)) (sin delta)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta))) (* (* (cos phi1) (sin theta)) (sin delta)) (* (cos phi1) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (pow (sin phi1) 2) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (sin phi1) (sin delta)))

simplify188.0ms (1.4%)

Memory

0.3MiB live, 142.7MiB allocated; 12ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	670	5769
1	2250	5365
0	9213	5081

Stop Event

1×	iter limit
1×	node limit

Counts

154 → 154

Calls

Call 1

Inputs
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (atan2 (* (* (cos phi1) (sin theta)) (sin delta)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (sin theta)))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* -1/2 (* (pow phi1 2) (sin theta))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* (pow phi1 2) (+ (* -1/2 (sin theta)) (* 1/24 (* (pow phi1 2) (sin theta))))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* (pow phi1 2) (+ (* -1/2 (sin theta)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin theta))) (* 1/24 (sin theta)))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (* 1/12 (* (cos theta) (sin delta)))))))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (+ (* 1/12 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/144 (* (cos theta) (sin delta))) (+ (* -1/240 (* (cos theta) (sin delta))) (+ (* -1/720 (* (cos theta) (sin delta))) (* -1/5040 (* (cos theta) (sin delta))))))))))))))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow phi1 2)))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* phi1 (cos delta))))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (cos delta)))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* phi1 (+ (* -1 (* phi1 (cos delta))) (* -1 (* (cos theta) (sin delta))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* phi1 (+ (* -1 (cos delta)) (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* phi1 (sin delta))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* phi1 (+ (sin delta) (* -1/6 (* (pow phi1 2) (sin delta)))))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow phi1 2) (sin delta)))))))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/6 (sin delta)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* (cos phi1) (sin theta))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* (sin delta) (sin phi1))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* 1/120 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1)))))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/120 (* (cos phi1) (* (cos theta) (sin phi1))))))))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* -1/2 (* delta (sin phi1))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (* (cos phi1) (cos theta)))))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (* -1 (pow (sin phi1) 2)))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* -1 (pow (sin phi1) 2))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (+ (* -1 (pow (sin phi1) 2)) (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (* 1/2 (pow (sin phi1) 2)) 1/2))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (+ (* -1 (pow (sin phi1) 2)) (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (+ (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/2 (pow (sin phi1) 2))) 1/2))))))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* delta (sin phi1))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* delta (+ (sin phi1) (* -1/6 (* (pow delta 2) (sin phi1)))))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* delta (+ (sin phi1) (* (pow delta 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow delta 2) (sin phi1)))))))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* delta (+ (sin phi1) (* (pow delta 2) (+ (* -1/6 (sin phi1)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin phi1))) (* 1/120 (sin phi1))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1))))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (cos phi1))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* -1/6 (* (pow theta 2) (cos phi1)))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* (pow theta 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow theta 2) (cos phi1)))))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* (pow theta 2) (+ (* -1/6 (cos phi1)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin phi1)))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta)))))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* 1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))))

Outputs
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (+.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (+.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) lambda1))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (fma.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) lambda1) lambda1 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (fma.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) lambda1) lambda1 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (fma.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) lambda1) lambda1 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) (neg.f64 lambda1)) #s(literal 1 binary64))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) (neg.f64 lambda1)) #s(literal 1 binary64))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) (neg.f64 lambda1)) #s(literal 1 binary64))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (.f64 phi1 (cos.f64 theta)) (sin.f64 delta)))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (sin.f64 delta) (cos.f64 theta) (.f64 (cos.f64 delta) phi1)) phi1))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64))) phi1 (cos.f64 delta)) phi1 (.f64 (sin.f64 delta) (cos.f64 theta))) phi1))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/3 binary64) (cos.f64 delta)) phi1 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64)))) phi1 (cos.f64 delta)) phi1 (*.f64 (sin.f64 delta) (cos.f64 theta))) phi1))
#s(approx (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (atan2 (* (* (cos phi1) (sin theta)) (sin delta)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 theta) (sin.f64 delta)))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)) (*.f64 (sin.f64 theta) (sin.f64 delta))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1) #s(literal -1/2 binary64))) (.f64 phi1 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 delta)) (sin.f64 theta) (.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) (.f64 phi1 phi1))) (.f64 phi1 phi1) (.f64 (sin.f64 theta) (sin.f64 delta))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (atan2 (* (* (cos phi1) (sin theta)) (sin delta)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 theta) (sin.f64 delta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)) (*.f64 (sin.f64 theta) (sin.f64 delta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1) #s(literal -1/2 binary64))) (.f64 phi1 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 delta)) (sin.f64 theta) (.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) (.f64 phi1 phi1))) (.f64 phi1 phi1) (.f64 (sin.f64 theta) (sin.f64 delta))))
#s(approx (atan2 (* (* (cos phi1) (sin theta)) (sin delta)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (atan2 (* (* (cos phi1) (sin theta)) (sin delta)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 theta) (sin.f64 delta)))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)) (*.f64 (sin.f64 theta) (sin.f64 delta))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1) #s(literal -1/2 binary64))) (.f64 phi1 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 delta)) (sin.f64 theta) (.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) (.f64 phi1 phi1))) (.f64 phi1 phi1) (.f64 (sin.f64 theta) (sin.f64 delta))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (sin theta)))
#s(approx (* (cos phi1) (sin theta)) (sin.f64 theta))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* -1/2 (* (pow phi1 2) (sin theta))))))
#s(approx (* (cos phi1) (sin theta)) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)) (sin.f64 theta)))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* (pow phi1 2) (+ (* -1/2 (sin theta)) (* 1/24 (* (pow phi1 2) (sin theta))))))))
#s(approx (* (cos phi1) (sin theta)) (fma.f64 (.f64 (sin.f64 theta) (fma.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1) #s(literal -1/2 binary64))) (*.f64 phi1 phi1) (sin.f64 theta)))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* (pow phi1 2) (+ (* -1/2 (sin theta)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin theta))) (* 1/24 (sin theta)))))))))
#s(approx (* (cos phi1) (sin theta)) (fma.f64 (fma.f64 (.f64 (sin.f64 theta) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) (.f64 phi1 phi1) (.f64 #s(literal -1/2 binary64) (sin.f64 theta))) (*.f64 phi1 phi1) (sin.f64 theta)))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (cos delta)))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (cos.f64 delta))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (fma.f64 (neg.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 delta)))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (fma.f64 (neg.f64 (fma.f64 (sin.f64 delta) (cos.f64 theta) (*.f64 (cos.f64 delta) phi1))) phi1 (cos.f64 delta)))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (fma.f64 (-.f64 (.f64 (-.f64 (.f64 (neg.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64)))) (cos.f64 delta)) phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) phi1 (cos.f64 delta)))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 phi1 (cos.f64 theta)) (sin.f64 delta)))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (fma.f64 (.f64 phi1 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (*.f64 (sin.f64 delta) (cos.f64 theta))) phi1))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (* 1/12 (* (cos theta) (sin delta)))))))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (fma.f64 (fma.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal 2/15 binary64)) (.f64 phi1 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64)))) (.f64 phi1 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) phi1))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (+ (* 1/12 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/144 (* (cos theta) (sin delta))) (+ (* -1/240 (* (cos theta) (sin delta))) (+ (* -1/720 (* (cos theta) (sin delta))) (* -1/5040 (* (cos theta) (sin delta))))))))))))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal 2/15 binary64) (.f64 (fma.f64 (.f64 #s(literal -1/144 binary64) (sin.f64 delta)) (cos.f64 theta) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal -29/5040 binary64))) (.f64 phi1 phi1))) (.f64 phi1 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64)))) (.f64 phi1 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) phi1))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow phi1 2)))
#s(approx (pow (sin phi1) 2) (*.f64 phi1 phi1))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))))
#s(approx (pow (sin phi1) 2) (.f64 (.f64 (fma.f64 (*.f64 phi1 phi1) #s(literal -1/3 binary64) #s(literal 1 binary64)) phi1) phi1))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))))
#s(approx (pow (sin phi1) 2) (.f64 (.f64 (fma.f64 (-.f64 (.f64 #s(literal 2/45 binary64) (.f64 phi1 phi1)) #s(literal 1/3 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1) phi1))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))))
#s(approx (pow (sin phi1) 2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 (fma.f64 #s(literal -1/315 binary64) (.f64 phi1 phi1) #s(literal 2/45 binary64)) phi1) phi1) #s(literal 1/3 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 phi1 phi1)))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta)))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 delta) (cos.f64 theta) (*.f64 (cos.f64 delta) phi1)))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (cos.f64 theta))) (sin.f64 delta) (cos.f64 delta)) phi1 (*.f64 (sin.f64 delta) (cos.f64 theta))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* phi1 (cos delta))))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 delta)) phi1 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta))) phi1 (cos.f64 delta)) phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (cos delta)))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (cos.f64 delta))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (fma.f64 (neg.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 delta)))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* phi1 (+ (* -1 (* phi1 (cos delta))) (* -1 (* (cos theta) (sin delta))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (fma.f64 (neg.f64 (fma.f64 (sin.f64 delta) (cos.f64 theta) (*.f64 (cos.f64 delta) phi1))) phi1 (cos.f64 delta)))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* phi1 (+ (* -1 (cos delta)) (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (fma.f64 (fma.f64 (neg.f64 (sin.f64 delta)) (cos.f64 theta) (.f64 (neg.f64 (fma.f64 (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) #s(literal -2/3 binary64))) phi1 (cos.f64 delta))) phi1)) phi1 (cos.f64 delta)))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* phi1 (sin delta))))
#s(approx (* (sin phi1) (sin delta)) (*.f64 (sin.f64 delta) phi1))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* phi1 (+ (sin delta) (* -1/6 (* (pow phi1 2) (sin delta)))))))
#s(approx (* (sin phi1) (sin delta)) (.f64 (.f64 (fma.f64 (*.f64 #s(literal -1/6 binary64) phi1) phi1 #s(literal 1 binary64)) (sin.f64 delta)) phi1))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow phi1 2) (sin delta)))))))))
#s(approx (* (sin phi1) (sin delta)) (.f64 (fma.f64 (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1) #s(literal -1/6 binary64))) (.f64 phi1 phi1) (sin.f64 delta)) phi1))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/6 (sin delta)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (* (sin phi1) (sin delta)) (.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 delta) (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64))) (.f64 phi1 phi1) (.f64 #s(literal -1/6 binary64) (sin.f64 delta))) (.f64 phi1 phi1) (sin.f64 delta)) phi1))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* (cos phi1) (sin theta))))
#s(approx (* (cos phi1) (sin theta)) (*.f64 (sin.f64 theta) (cos.f64 phi1)))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta)))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 theta))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (pow (sin phi1) 2) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta)))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* (sin delta) (sin phi1))))
#s(approx (* (sin phi1) (sin delta)) (*.f64 (sin.f64 delta) (sin.f64 phi1)))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (fma.f64 (.f64 delta (cos.f64 phi1)) (.f64 (cos.f64 theta) (sin.f64 phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (fma.f64 (fma.f64 (.f64 delta #s(literal -1/2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (fma.f64 (fma.f64 (.f64 delta #s(literal -1/2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)))) delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 delta (cos.f64 phi1)) (sin.f64 theta)))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (.f64 (sin.f64 theta) (cos.f64 phi1))) delta))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (.f64 (.f64 (sin.f64 theta) (cos.f64 phi1)) (fma.f64 #s(literal 1/120 binary64) (.f64 delta delta) #s(literal -1/6 binary64))) (.f64 delta delta) (.f64 (sin.f64 theta) (cos.f64 phi1))) delta))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 theta) (.f64 (.f64 (.f64 (sin.f64 theta) (cos.f64 phi1)) (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta))) (.f64 delta delta) (*.f64 (sin.f64 theta) (cos.f64 phi1))) delta))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 delta (cos.f64 phi1)) (sin.f64 theta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (.f64 (sin.f64 theta) (cos.f64 phi1))) delta))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (.f64 (.f64 (sin.f64 theta) (cos.f64 phi1)) (fma.f64 #s(literal 1/120 binary64) (.f64 delta delta) #s(literal -1/6 binary64))) (.f64 delta delta) (.f64 (sin.f64 theta) (cos.f64 phi1))) delta))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 theta) (.f64 (.f64 (.f64 (sin.f64 theta) (cos.f64 phi1)) (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta))) (.f64 delta delta) (*.f64 (sin.f64 theta) (cos.f64 phi1))) delta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 theta) delta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 (*.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (sin.f64 theta)) delta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (.f64 (sin.f64 theta) (fma.f64 #s(literal 1/120 binary64) (.f64 delta delta) #s(literal -1/6 binary64))) (.f64 delta delta) (sin.f64 theta)) delta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 theta) (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta) (.f64 #s(literal -1/6 binary64) (sin.f64 theta))) (.f64 delta delta) (sin.f64 theta)) delta))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 delta (cos.f64 phi1)) (sin.f64 theta)))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (.f64 (sin.f64 theta) (cos.f64 phi1))) delta))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (.f64 (.f64 (sin.f64 theta) (cos.f64 phi1)) (fma.f64 #s(literal 1/120 binary64) (.f64 delta delta) #s(literal -1/6 binary64))) (.f64 delta delta) (.f64 (sin.f64 theta) (cos.f64 phi1))) delta))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 theta) (.f64 (.f64 (.f64 (sin.f64 theta) (cos.f64 phi1)) (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta))) (.f64 delta delta) (*.f64 (sin.f64 theta) (cos.f64 phi1))) delta))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (fma.f64 (neg.f64 (.f64 delta (cos.f64 phi1))) (.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi1))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (fma.f64 (-.f64 (.f64 (neg.f64 delta) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta (.f64 (cos.f64 phi1) (cos.f64 phi1))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (fma.f64 (fma.f64 (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 phi1)) (cos.f64 theta) (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) (.f64 delta (cos.f64 phi1))) (.f64 (cos.f64 theta) (sin.f64 phi1)) (-.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64))) delta)) delta (*.f64 (cos.f64 phi1) (cos.f64 phi1))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 delta (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* 1/120 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1)))))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (fma.f64 (.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (fma.f64 #s(literal 1/120 binary64) (.f64 delta delta) #s(literal -1/6 binary64))) (.f64 delta delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/120 (* (cos phi1) (* (cos theta) (sin phi1))))))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta)) (.f64 delta delta))) delta))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 phi1))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 delta (cos.f64 theta)) (cos.f64 phi1) (sin.f64 phi1)))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* -1/2 (* delta (sin phi1))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (fma.f64 (.f64 delta #s(literal -1/2 binary64)) (sin.f64 phi1) (.f64 (cos.f64 phi1) (cos.f64 theta))) delta (sin.f64 phi1)))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (* (cos phi1) (cos theta)))))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta (cos.f64 phi1))) (cos.f64 theta) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1))) delta (.f64 (cos.f64 phi1) (cos.f64 theta))) delta (sin.f64 phi1)))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (* -1 (pow (sin phi1) 2)))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* -1 (pow (sin phi1) 2))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (fma.f64 (neg.f64 (.f64 delta (cos.f64 phi1))) (.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi1))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (+ (* -1 (pow (sin phi1) 2)) (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (* 1/2 (pow (sin phi1) 2)) 1/2))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (fma.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64)) delta (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (neg.f64 (sin.f64 phi1)))) delta (.f64 (cos.f64 phi1) (cos.f64 phi1))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (+ (* -1 (pow (sin phi1) 2)) (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (+ (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/2 (pow (sin phi1) 2))) 1/2))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (fma.f64 (fma.f64 (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 phi1)) (cos.f64 theta) (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) (.f64 delta (cos.f64 phi1))) (.f64 (cos.f64 theta) (sin.f64 phi1)) (-.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64))) delta)) delta (*.f64 (cos.f64 phi1) (cos.f64 phi1))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* delta (sin phi1))))
#s(approx (* (sin phi1) (sin delta)) (*.f64 (sin.f64 phi1) delta))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* delta (+ (sin phi1) (* -1/6 (* (pow delta 2) (sin phi1)))))))
#s(approx (* (sin phi1) (sin delta)) (.f64 (.f64 (fma.f64 (*.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (sin.f64 phi1)) delta))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* delta (+ (sin phi1) (* (pow delta 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow delta 2) (sin phi1)))))))))
#s(approx (* (sin phi1) (sin delta)) (.f64 (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 #s(literal 1/120 binary64) (.f64 delta delta) #s(literal -1/6 binary64))) (.f64 delta delta) (sin.f64 phi1)) delta))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* delta (+ (sin phi1) (* (pow delta 2) (+ (* -1/6 (sin phi1)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin phi1))) (* 1/120 (sin phi1))))))))))
#s(approx (* (sin phi1) (sin delta)) (.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta) (.f64 #s(literal -1/6 binary64) (sin.f64 phi1))) (.f64 delta delta) (sin.f64 phi1)) delta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 theta) (sin.f64 delta)))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (fma.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1) (.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (fma.f64 #s(literal 1/24 binary64) (.f64 theta theta) #s(literal -1/2 binary64))) (*.f64 theta theta))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1))))))))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (fma.f64 #s(literal -1/720 binary64) (.f64 theta theta) #s(literal 1/24 binary64))) (.f64 theta theta)) (*.f64 theta theta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) theta) (sin.f64 delta)))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta))) theta))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 #s(literal 1/120 binary64) (.f64 theta theta) #s(literal -1/6 binary64))) (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) theta))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 #s(literal -1/5040 binary64) (.f64 theta theta) #s(literal 1/120 binary64))) (.f64 theta theta))) (.f64 theta theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) theta))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) theta) (sin.f64 delta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta))) theta))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 #s(literal 1/120 binary64) (.f64 theta theta) #s(literal -1/6 binary64))) (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) theta))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 #s(literal -1/5040 binary64) (.f64 theta theta) #s(literal 1/120 binary64))) (.f64 theta theta))) (.f64 theta theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) theta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/120 binary64) (.f64 theta theta) #s(literal -1/6 binary64))) (.f64 theta theta) (sin.f64 delta)) theta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 delta) (fma.f64 #s(literal -1/5040 binary64) (.f64 theta theta) #s(literal 1/120 binary64))) (.f64 theta theta) (.f64 #s(literal -1/6 binary64) (sin.f64 delta))) (.f64 theta theta) (sin.f64 delta)) theta))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) theta) (sin.f64 delta)))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta))) theta))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 #s(literal 1/120 binary64) (.f64 theta theta) #s(literal -1/6 binary64))) (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) theta))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 #s(literal -1/5040 binary64) (.f64 theta theta) #s(literal 1/120 binary64))) (.f64 theta theta))) (.f64 theta theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) theta))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (cos phi1))))
#s(approx (* (cos phi1) (sin theta)) (*.f64 (cos.f64 phi1) theta))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* -1/6 (* (pow theta 2) (cos phi1)))))))
#s(approx (* (cos phi1) (sin theta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 theta theta) #s(literal 1 binary64)) (cos.f64 phi1)) theta))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* (pow theta 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow theta 2) (cos phi1)))))))))
#s(approx (* (cos phi1) (sin theta)) (.f64 (fma.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal 1/120 binary64) (.f64 theta theta) #s(literal -1/6 binary64))) (.f64 theta theta) (cos.f64 phi1)) theta))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* (pow theta 2) (+ (* -1/6 (cos phi1)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (* (cos phi1) (sin theta)) (.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/5040 binary64) (.f64 theta theta) #s(literal 1/120 binary64))) (.f64 theta theta) (.f64 #s(literal -1/6 binary64) (cos.f64 phi1))) (.f64 theta theta) (cos.f64 phi1)) theta))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (fma.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (fma.f64 #s(literal -1/24 binary64) (.f64 theta theta) #s(literal 1/2 binary64))) (.f64 theta theta) (fma.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (fma.f64 #s(literal 1/720 binary64) (.f64 theta theta) #s(literal -1/24 binary64))) (.f64 theta theta))) (.f64 theta theta) (fma.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin phi1)))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (fma.f64 #s(literal 1/24 binary64) (.f64 theta theta) #s(literal -1/2 binary64))) (.f64 theta theta) (.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (fma.f64 #s(literal -1/720 binary64) (.f64 theta theta) #s(literal 1/24 binary64))) (.f64 theta theta)) (*.f64 theta theta))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (.f64 (.f64 theta theta) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 #s(literal 1/24 binary64) (.f64 theta theta) #s(literal -1/2 binary64))) (.f64 theta theta) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta)))))))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 #s(literal -1/720 binary64) (.f64 theta theta) #s(literal 1/24 binary64))) (.f64 theta theta))) (.f64 theta theta) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (fma.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (fma.f64 #s(literal -1/24 binary64) (.f64 theta theta) #s(literal 1/2 binary64))) (.f64 theta theta) (fma.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* 1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (fma.f64 #s(literal 1/720 binary64) (.f64 theta theta) #s(literal -1/24 binary64))) (.f64 theta theta))) (.f64 theta theta) (fma.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))

rewrite213.0ms (1.6%)

Memory

0.2MiB live, 142.5MiB allocated; 10ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	74	710
0	123	662
1	430	662
2	2961	662
0	8153	642

Stop Event

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

Counts

28 → 288

Calls

Call 1

Inputs
(fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))))
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta)))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
(*.f64 (cos.f64 phi1) (sin.f64 theta))
(-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))))
(fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1))))))
(-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))
(.f64 (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
(fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))
(*.f64 (sin.f64 phi1) (sin.f64 delta))

Outputs
(.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) #s(literal 2 binary64))) (sin.f64 phi1)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta))))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) #s(literal 3 binary64))) (sin.f64 phi1)) (fma.f64 (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))) (pow.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) #s(literal 3 binary64))) (sin.f64 phi1)) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta))) (pow.f64 (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) #s(literal 2 binary64))))
(/.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta))))
(/.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))))
(/.f64 (.f64 (sin.f64 phi1) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) #s(literal 3 binary64)))) (fma.f64 (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))) (pow.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))))
(/.f64 (.f64 (sin.f64 phi1) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) #s(literal 3 binary64)))) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta))) (pow.f64 (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))
(/.f64 (-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (pow.f64 (.f64 (.f64 (neg.f64 (sin.f64 delta)) (.f64 (cos.f64 theta) (cos.f64 phi1))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) (.f64 (.f64 (neg.f64 (sin.f64 delta)) (.f64 (cos.f64 theta) (cos.f64 phi1))) (sin.f64 phi1))))))
(/.f64 (neg.f64 (-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (pow.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1)) #s(literal 2 binary64)))) (neg.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta))))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (cos.f64 (+.f64 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1)))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1)) (cos.f64 (+.f64 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (pow.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1)) #s(literal 2 binary64))) (.f64 (sin.f64 phi1) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta)))))
(/.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) (cos.f64 theta)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))))
(/.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (cos.f64 (+.f64 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1))) #s(literal 2 binary64))
(fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (cos.f64 phi1))) (sin.f64 delta) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (.f64 (sin.f64 phi1) (cos.f64 theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (.f64 (sin.f64 phi1) (cos.f64 phi1)) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 phi1) (sin.f64 phi1)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (cos.f64 theta) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (cos.f64 phi1)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) (sin.f64 phi1) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1) (.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 delta)) (.f64 (cos.f64 theta) (cos.f64 phi1)))) (sin.f64 phi1)))
(fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1) (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1)))
(fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 delta)) (*.f64 (cos.f64 theta) (cos.f64 phi1)))) (sin.f64 phi1)))
(fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1)))
(fma.f64 (cos.f64 theta) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (sin.f64 phi1)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 phi1)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(fma.f64 (sin.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 delta)) (.f64 (cos.f64 theta) (cos.f64 phi1)))) (sin.f64 phi1)))
(fma.f64 (sin.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1)))
(fma.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 delta)) (*.f64 (cos.f64 theta) (cos.f64 phi1)))) (sin.f64 phi1)))
(fma.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1)))
(-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (sin.f64 phi1) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta))))) (/.f64 (pow.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1)) #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta))))))
(-.f64 (/.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1)) #s(literal 2 binary64)))
(-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) (.f64 (neg.f64 (cos.f64 theta)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) (.f64 (neg.f64 (sin.f64 phi1)) (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta))))
(-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) (.f64 (.f64 (neg.f64 (sin.f64 delta)) (.f64 (cos.f64 theta) (cos.f64 phi1))) (sin.f64 phi1)))
(-.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1)) (.f64 (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 delta)) (sin.f64 phi1)))
(-.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1)) (.f64 (neg.f64 (sin.f64 phi1)) (*.f64 (sin.f64 phi1) (cos.f64 delta))))
(-.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1)) (.f64 (neg.f64 (cos.f64 delta)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (pow.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
(+.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) (.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 delta)) (.f64 (cos.f64 theta) (cos.f64 phi1)))) (sin.f64 phi1)))
(+.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1)))
(+.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) lambda1))
(/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64)))) (neg.f64 (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) lambda1) (*.f64 lambda1 lambda1))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta)))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) lambda1))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) lambda1) (*.f64 lambda1 lambda1)))
(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))))
(+.f64 (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) lambda1) (.f64 lambda1 lambda1))) (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) lambda1) (.f64 lambda1 lambda1))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta)))
(.f64 (.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) (sin.f64 delta)))
(.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (cos.f64 phi1)))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 phi1 delta))) (sin.f64 theta)) #s(literal 2 binary64))
(/.f64 (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 phi1 delta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) lambda1))
(/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64)))) (neg.f64 (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) lambda1) (*.f64 lambda1 lambda1))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) lambda1))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) lambda1) (*.f64 lambda1 lambda1)))
(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))))
(+.f64 (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) lambda1) (.f64 lambda1 lambda1))) (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) lambda1) (*.f64 lambda1 lambda1))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))
(.f64 (.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) (sin.f64 delta)))
(.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (cos.f64 phi1)))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 phi1 delta))) (sin.f64 theta)) #s(literal 2 binary64))
(/.f64 (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 phi1 delta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal 2 binary64))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64))
(-.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 theta delta)) #s(literal 2 binary64)))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) lambda1))
(/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64)))) (neg.f64 (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) lambda1) (*.f64 lambda1 lambda1))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) lambda1))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) lambda1) (*.f64 lambda1 lambda1)))
(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
(+.f64 (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) lambda1) (.f64 lambda1 lambda1))) (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) lambda1) (*.f64 lambda1 lambda1))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(.f64 (.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) (sin.f64 delta)))
(.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (cos.f64 phi1)))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 phi1 delta))) (sin.f64 theta)) #s(literal 2 binary64))
(/.f64 (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 phi1 delta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal 2 binary64))
(*.f64 (sin.f64 theta) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (sin.f64 theta))
(/.f64 (+.f64 (sin.f64 (-.f64 theta (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 theta (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 theta (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 theta (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) theta)) (cos.f64 (+.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) theta))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 theta (neg.f64 phi1))) (sin.f64 (+.f64 theta (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 theta (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (cos.f64 (+.f64 theta (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) theta)) (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) theta))) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) #s(literal 2 binary64)) (pow.f64 #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))) #s(literal 2 binary64))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) #s(literal 3 binary64)) (pow.f64 #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) #s(literal 2 binary64)) (+.f64 (pow.f64 #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) #s(literal 2 binary64)))) (neg.f64 (+.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (cos.f64 delta))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (+.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) #s(literal 2 binary64))) (+.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (cos.f64 delta)))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (+.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
(-.f64 (-.f64 (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (cos.f64 delta))) (/.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) #s(literal 2 binary64)) (+.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (cos.f64 delta))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (+.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (/.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) #s(literal 3 binary64)) (fma.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (+.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (-.f64 #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))
(/.f64 (neg.f64 (-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (pow.f64 #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))) (-.f64 #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
(/.f64 (-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (pow.f64 #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))) #s(literal 2 binary64))) (-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(/.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (pow.f64 #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))))
(/.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))) (-.f64 #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
(fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(fma.f64 (sin.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(fma.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))) (/.f64 (pow.f64 #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))))
(-.f64 #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))) (.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 delta)) (sin.f64 phi1)))
(-.f64 #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))) (.f64 (neg.f64 (sin.f64 phi1)) (.f64 (sin.f64 phi1) (cos.f64 delta))))
(-.f64 #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))) (*.f64 (neg.f64 (cos.f64 delta)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (fma.f64 #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))) (-.f64 #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (pow.f64 #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))) #s(literal 3 binary64)) (fma.f64 #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))) (-.f64 #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
(+.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(+.f64 #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))) lambda1))
(/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64)))) (neg.f64 (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))) lambda1) (*.f64 lambda1 lambda1))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))) lambda1))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))) lambda1) (*.f64 lambda1 lambda1)))
(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))))))
(+.f64 (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))) lambda1) (.f64 lambda1 lambda1))) (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))) #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))) lambda1) (*.f64 lambda1 lambda1))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1)) #s(literal 2 binary64))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1)) #s(literal 2 binary64)) (.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (.f64 (.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (-.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1) (cos.f64 delta))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1) (cos.f64 delta)))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
(fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))
(fma.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1) (cos.f64 delta))) (/.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1) (cos.f64 delta))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1)))
(-.f64 (cos.f64 delta) (.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))
(-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))
(+.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (.f64 (neg.f64 (cos.f64 theta)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(+.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (.f64 (neg.f64 (sin.f64 phi1)) (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta))))
(+.f64 (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (.f64 (.f64 (neg.f64 (sin.f64 delta)) (.f64 (cos.f64 theta) (cos.f64 phi1))) (sin.f64 phi1)))
(+.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))) (cos.f64 delta))
(+.f64 (cos.f64 delta) (.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))) (sin.f64 phi1)))
(+.f64 (cos.f64 delta) (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))
(.f64 (.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1))
(.f64 (.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (cos.f64 phi1))) (sin.f64 delta))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 theta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))
(.f64 (.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (cos.f64 theta))
(.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 theta) (cos.f64 phi1)))
(.f64 (.f64 (*.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) (sin.f64 phi1))
(.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (sin.f64 phi1)))
(.f64 (cos.f64 theta) (.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 theta) (sin.f64 phi1)))
(.f64 (cos.f64 phi1) (.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (sin.f64 phi1)))
(.f64 (sin.f64 delta) (.f64 (*.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 phi1)))
(.f64 (sin.f64 phi1) (.f64 (*.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta)))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64)))) (neg.f64 (+.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64))) (+.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 3 binary64))) (fma.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta))) (/.f64 (pow.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64)) (+.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (/.f64 (pow.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 3 binary64)) (fma.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
(-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(*.f64 (pow.f64 (fabs.f64 (sin.f64 phi1)) #s(literal 1 binary64)) (pow.f64 (fabs.f64 (sin.f64 phi1)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (neg.f64 (sin.f64 phi1)) #s(literal 1 binary64)) (pow.f64 (neg.f64 (sin.f64 phi1)) #s(literal 1 binary64)))
(*.f64 (fabs.f64 (sin.f64 phi1)) (fabs.f64 (sin.f64 phi1)))
(*.f64 (exp.f64 (log.f64 (sin.f64 phi1))) (exp.f64 (log.f64 (sin.f64 phi1))))
(*.f64 (neg.f64 (sin.f64 phi1)) (neg.f64 (sin.f64 phi1)))
(*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1 binary64))
(*.f64 (sin.f64 phi1) (exp.f64 (log.f64 (sin.f64 phi1))))
(*.f64 (sin.f64 phi1) (sin.f64 phi1))
(pow.f64 (exp.f64 #s(literal 2 binary64)) (log.f64 (sin.f64 phi1)))
(pow.f64 (fabs.f64 (sin.f64 phi1)) #s(literal 2 binary64))
(pow.f64 (exp.f64 (log.f64 (sin.f64 phi1))) #s(literal 2 binary64))
(pow.f64 (neg.f64 (sin.f64 phi1)) #s(literal 2 binary64))
(pow.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1 binary64))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) (sin.f64 (+.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (sin.f64 (+.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (neg.f64 phi1) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) (sin.f64 (+.f64 (neg.f64 phi1) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (neg.f64 phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (sin.f64 (+.f64 (neg.f64 phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (PI.f64) phi1) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) (sin.f64 (+.f64 (+.f64 (PI.f64) phi1) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (sin.f64 (+.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 phi1))) (cos.f64 (+.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 (PI.f64) phi1))) (cos.f64 (+.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 (PI.f64) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (neg.f64 phi1) (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (neg.f64 phi1) (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (neg.f64 phi1) (neg.f64 phi1))) (cos.f64 (+.f64 (neg.f64 phi1) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (neg.f64 phi1) (+.f64 (PI.f64) phi1))) (cos.f64 (+.f64 (neg.f64 phi1) (+.f64 (PI.f64) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (PI.f64) phi1) (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (+.f64 (PI.f64) phi1) (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (PI.f64) phi1) (neg.f64 phi1))) (cos.f64 (+.f64 (+.f64 (PI.f64) phi1) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (PI.f64) phi1) (+.f64 (PI.f64) phi1))) (cos.f64 (+.f64 (+.f64 (PI.f64) phi1) (+.f64 (PI.f64) phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) (cos.f64 (-.f64 (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (cos.f64 (-.f64 (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) (cos.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (cos.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 phi1)) (cos.f64 (+.f64 phi1 phi1))) #s(literal 2 binary64))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (neg.f64 phi1)))))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (PI.f64) phi1)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))
(-.f64 #s(literal 1 binary64) (*.f64 (neg.f64 (cos.f64 phi1)) (neg.f64 (cos.f64 phi1))))
(-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(exp.f64 (.f64 (.f64 (log.f64 (sin.f64 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (exp.f64 (log.f64 (sin.f64 phi1)))) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1 binary64)))
(exp.f64 (log.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))
(+.f64 (cosh.f64 (log.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (sinh.f64 (log.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta)))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (neg.f64 (sin.f64 phi1)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (neg.f64 (-.f64 (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (neg.f64 (sin.f64 phi1))) (cos.f64 delta))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (neg.f64 (sin.f64 phi1))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (cos.f64 delta) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (neg.f64 (sin.f64 phi1)))) (pow.f64 (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (sin.f64 phi1)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (-.f64 (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (neg.f64 (sin.f64 phi1))) (cos.f64 delta)))
(/.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (neg.f64 (sin.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (-.f64 (pow.f64 (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))))
(/.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (neg.f64 (sin.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (neg.f64 (sin.f64 phi1)))) (pow.f64 (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (sin.f64 phi1)) #s(literal 2 binary64))))
(fma.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (cos.f64 delta))
(fma.f64 (sin.f64 phi1) (neg.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta)))) (cos.f64 delta))
(-.f64 (/.f64 (pow.f64 (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (neg.f64 (sin.f64 phi1))) (cos.f64 delta))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (-.f64 (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (neg.f64 (sin.f64 phi1))) (cos.f64 delta))))
(-.f64 (cos.f64 delta) (.f64 (neg.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta)))) (neg.f64 (sin.f64 phi1))))
(-.f64 (cos.f64 delta) (.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta)))))
(-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (sin.f64 phi1)))
(+.f64 (/.f64 (pow.f64 (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (neg.f64 (sin.f64 phi1))) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (neg.f64 (sin.f64 phi1)))) (pow.f64 (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (sin.f64 phi1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (neg.f64 (sin.f64 phi1)))) (pow.f64 (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (sin.f64 phi1)) #s(literal 2 binary64)))))
(+.f64 (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (neg.f64 (sin.f64 phi1))) (cos.f64 delta))
(+.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (neg.f64 (sin.f64 phi1))))
#s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))
(*.f64 (sin.f64 delta) (sin.f64 phi1))
(*.f64 (sin.f64 phi1) (sin.f64 delta))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 phi1 delta)) (cos.f64 (+.f64 phi1 delta)))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 delta phi1)) (cos.f64 (+.f64 phi1 delta))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 delta)) (cos.f64 (+.f64 phi1 delta))) #s(literal 2 binary64))
(-.f64 (/.f64 (cos.f64 (-.f64 phi1 delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 phi1 delta)) #s(literal 2 binary64)))

eval107.0ms (0.8%)

Memory: 1.5MiB live, 92.2MiB allocated; 7ms collecting garbage
Compiler: Compiled 24 881 to 2 232 computations (91% saved)

prune53.0ms (0.4%)

Memory

-25.7MiB live, 73.7MiB allocated; 12ms collecting garbage

Pruning

38 alts after pruning (35 fresh and 3 done)

	Pruned	Kept	Total
New	381	25	406
Fresh	11	10	21
Picked	3	2	5
Done	0	1	1
Total	395	38	433

Accuracy

100.0%

Counts

433 → 38

Alt Table

Click to see full alt table

Status	Accuracy	Program
	42.4%	(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) lambda1) (*.f64 lambda1 lambda1)))
	99.9%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
	92.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (/.f64 (pow.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 3 binary64)) (fma.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
▶	99.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))))))
	88.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 #s(approx (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
	87.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (PI.f64) phi1) (neg.f64 phi1))) (cos.f64 (+.f64 (+.f64 (PI.f64) phi1) (neg.f64 phi1)))) #s(literal 2 binary64))))))
	88.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (sin.f64 (+.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))))))
	87.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (+.f64 (sin.f64 (-.f64 (neg.f64 phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (sin.f64 (+.f64 (neg.f64 phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))))))
	92.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))))))
	92.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))))
▶	87.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
	48.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (exp.f64 (.f64 (.f64 (log.f64 (sin.f64 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)))))))
	81.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(approx (pow (sin phi1) 2) (*.f64 phi1 phi1))))))
	79.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))))
✓	88.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
▶	93.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))
	73.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (sin.f64 theta)) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
	75.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
	76.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	73.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
	78.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))))))
▶	76.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
	99.5%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (fma.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1 lambda1))
	32.3%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
	32.3%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 (fma.f64 #s(literal -1/2 binary64) (PI.f64) (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) (cos.f64 delta))))
	25.3%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
	25.3%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (sin.f64 phi1) (neg.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta)))) (cos.f64 delta))))
	18.9%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 delta (cos.f64 theta)) (cos.f64 phi1) (sin.f64 phi1))) (cos.f64 delta))))
✓	26.4%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
▶	21.9%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))))
	25.4%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 phi1)) (cos.f64 delta))))
	15.5%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (cos.f64 phi1)) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
	15.2%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (cos.f64 phi1)) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
	15.5%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (cos.f64 phi1) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
	15.5%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (cos.f64 phi1) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
	19.0%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
	18.8%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
✓	68.8%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

Compiler

Compiled 4 406 to 2 546 computations (42.2% saved)

simplify150.0ms (1.1%)

Memory

-12.5MiB live, 79.7MiB allocated; 4ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
cost-diff	0	(*.f64 (cos.f64 phi1) (sin.f64 delta))
cost-diff	0	(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta))
cost-diff	0	(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
cost-diff	0	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))
cost-diff	0	(*.f64 (cos.f64 phi1) (sin.f64 theta))
cost-diff	0	(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
cost-diff	0	(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta)))
cost-diff	0	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))))
cost-diff	1	(+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)
cost-diff	1	(.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))
cost-diff	1	(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))
cost-diff	2	(*.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))
cost-diff	0	#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta))
cost-diff	0	(.f64 #s(approx ( (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1))
cost-diff	0	(atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))
cost-diff	0	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
cost-diff	0	(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
cost-diff	0	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)))))
cost-diff	0	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))))))
cost-diff	2	(fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	83	944
0	137	907
1	249	907
2	467	907
3	1110	878
4	2791	878
5	7906	878
0	8072	851

Stop Event

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

Calls

Call 1

Inputs
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))))))
lambda1
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)))))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(sin.f64 theta)
theta
(sin.f64 delta)
delta
(cos.f64 phi1)
phi1
(-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))))
(cos.f64 delta)
(fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(sin.f64 phi1)
#s(literal 2 binary64)
(.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(cos.f64 theta)
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
lambda1
(atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))
(.f64 #s(approx ( (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1))
#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta))
(*.f64 (sin.f64 delta) theta)
(sin.f64 delta)
delta
theta
(cos.f64 phi1)
phi1
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))
(cos.f64 delta)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
lambda1
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))))))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(sin.f64 theta)
theta
(sin.f64 delta)
delta
(cos.f64 phi1)
phi1
(-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))
(cos.f64 delta)
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))
#s(literal 1/2 binary64)
(.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))
(cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))
(*.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))
#s(literal 2 binary64)
(+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)
(/.f64 (PI.f64) #s(literal 2 binary64))
(PI.f64)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))))
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta)))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
(*.f64 (cos.f64 phi1) (sin.f64 theta))
(cos.f64 phi1)
phi1
(sin.f64 theta)
theta
(sin.f64 delta)
delta
(fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))
(neg.f64 (sin.f64 phi1))
(sin.f64 phi1)
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta)))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(cos.f64 theta)
(cos.f64 delta)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))
lambda1
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(cos.f64 phi1)
phi1
(sin.f64 delta)
delta
(sin.f64 theta)
theta
(-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))
(cos.f64 delta)
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))
(.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))
(fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))
(*.f64 (sin.f64 phi1) (cos.f64 delta))
(sin.f64 phi1)

Outputs
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))) lambda1)
lambda1
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta)))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(sin.f64 theta)
theta
(sin.f64 delta)
delta
(cos.f64 phi1)
phi1
(-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))))
(fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))
(cos.f64 delta)
(fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)))
(.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(sin.f64 phi1)
#s(literal 2 binary64)
(.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))
(.f64 (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(cos.f64 theta)
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) lambda1)
lambda1
(atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))
(.f64 #s(approx ( (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1))
#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta))
(*.f64 (sin.f64 delta) theta)
(sin.f64 delta)
delta
theta
(cos.f64 phi1)
phi1
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))
(cos.f64 delta)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (fma.f64 (cos.f64 (*.f64 #s(literal -2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) lambda1)
lambda1
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (fma.f64 (cos.f64 (*.f64 #s(literal -2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(sin.f64 theta)
theta
(sin.f64 delta)
delta
(cos.f64 phi1)
phi1
(-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))
(-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (fma.f64 (cos.f64 (*.f64 #s(literal -2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(cos.f64 delta)
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (fma.f64 (cos.f64 (*.f64 #s(literal -2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))
(fma.f64 (cos.f64 (*.f64 #s(literal -2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
(.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))
(.f64 (cos.f64 (.f64 #s(literal -2 binary64) phi1)) #s(literal -1/2 binary64))
(cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))
(cos.f64 (fma.f64 #s(literal -2 binary64) phi1 (PI.f64)))
(*.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))
(fma.f64 #s(literal 2 binary64) phi1 (PI.f64))
#s(literal 2 binary64)
(+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)
(fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)
(/.f64 (PI.f64) #s(literal 2 binary64))
(*.f64 (PI.f64) #s(literal 1/2 binary64))
(PI.f64)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(*.f64 (cos.f64 phi1) (sin.f64 theta))
(cos.f64 phi1)
phi1
(sin.f64 theta)
theta
(sin.f64 delta)
delta
(fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))
(fma.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(neg.f64 (sin.f64 phi1))
(sin.f64 phi1)
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta)))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(cos.f64 theta)
(cos.f64 delta)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))) lambda1)
lambda1
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(cos.f64 phi1)
phi1
(sin.f64 delta)
delta
(sin.f64 theta)
theta
(-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))
(-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))
(cos.f64 delta)
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))
(.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))
(.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))
(fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
(*.f64 (sin.f64 phi1) (cos.f64 delta))
(sin.f64 phi1)

localize710.0ms (5.3%)

Memory

56.0MiB live, 572.4MiB allocated; 47ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	0.25390625	(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta))
accuracy	0.26171875	(.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))
accuracy	0.3740377942638002	(-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))
accuracy	16.113353359244186	#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))
accuracy	0.27181625976844204	(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
accuracy	0.4350518790888568	(fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))
accuracy	36.745879309701714	#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta)))
accuracy	43.2834927706314	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))))
accuracy	0.3740377942638002	(-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))
accuracy	15.763418469383138	(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))
accuracy	27.665962454222324	(cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))
accuracy	34.955163180268165	#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))))
accuracy	0.12109375	(atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))
accuracy	0.1328125	(*.f64 (sin.f64 delta) theta)
accuracy	24.723943976025804	#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))
accuracy	31.192688944025853	#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta))
accuracy	0.1953125	(*.f64 (sin.f64 theta) (sin.f64 delta))
accuracy	0.21484375	(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
accuracy	0.26791000976844204	(.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))
accuracy	0.3740377942638002	(-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))))

Samples

372.0ms	158×	1	valid
264.0ms	95×	2	valid
2.0ms	3×	0	valid

Compiler

Compiled 763 to 66 computations (91.3% saved)

Precisions

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

ival-cos: 144.0ms (26.8% of total)

ival-mult: 108.0ms (20.1% of total)

adjust: 106.0ms (19.7% of total)

ival-sin: 87.0ms (16.2% of total)

ival-add: 27.0ms (5% of total)

ival-asin: 25.0ms (4.6% of total)

ival-atan2: 20.0ms (3.7% of total)

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

ival-pow2: 5.0ms (0.9% of total)

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

ival-neg: 2.0ms (0.4% of total)

ival-pi: 2.0ms (0.4% of total)

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

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

exact: 0.0ms (0% of total)

series63.0ms (0.5%)

Memory

-21.1MiB live, 70.1MiB allocated; 8ms collecting garbage

Counts

34 → 228

Calls

Call 1

Inputs
(fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)))))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))
(.f64 #s(approx ( (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1))
#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta))
(*.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))
(.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))
(+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))))
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta)))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
(*.f64 (cos.f64 phi1) (sin.f64 theta))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))))
(.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(*.f64 (sin.f64 theta) (sin.f64 delta))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))
(*.f64 (sin.f64 delta) theta)
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))))
(cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))
(-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta)))
(fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))
(-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))
(.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))

Outputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (* 2 (+ (/ (PI) 2) phi1)) #s(hole binary64 (PI)))
#s(approx (* 2 (+ (/ (PI) 2) phi1)) #s(hole binary64 (+ (PI) (* 2 phi1))))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1))))) #s(hole binary64 (+ 1/2 (* 1/2 (cos (PI))))))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1))))) #s(hole binary64 (+ 1/2 (+ (* -1 (* phi1 (sin (PI)))) (* 1/2 (cos (PI)))))))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1))))) #s(hole binary64 (+ 1/2 (+ (* 1/2 (cos (PI))) (* phi1 (+ (* -1 (sin (PI))) (* -1 (* phi1 (cos (PI))))))))))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1))))) #s(hole binary64 (+ 1/2 (+ (* 1/2 (cos (PI))) (* phi1 (+ (* -1 (sin (PI))) (* phi1 (+ (* -1 (cos (PI))) (* 2/3 (* phi1 (sin (PI))))))))))))
#s(approx (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1)))) #s(hole binary64 (* 1/2 (cos (PI)))))
#s(approx (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1)))) #s(hole binary64 (+ (* -1 (* phi1 (sin (PI)))) (* 1/2 (cos (PI))))))
#s(approx (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1)))) #s(hole binary64 (+ (* 1/2 (cos (PI))) (* phi1 (+ (* -1 (sin (PI))) (* -1 (* phi1 (cos (PI)))))))))
#s(approx (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1)))) #s(hole binary64 (+ (* 1/2 (cos (PI))) (* phi1 (+ (* -1 (sin (PI))) (* phi1 (+ (* -1 (cos (PI))) (* 2/3 (* phi1 (sin (PI)))))))))))
#s(approx (+ (/ (PI) 2) phi1) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ (/ (PI) 2) phi1) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (atan2 (* (* (cos phi1) (sin theta)) (sin delta)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (sin theta)))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* -1/2 (* (pow phi1 2) (sin theta))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* (pow phi1 2) (+ (* -1/2 (sin theta)) (* 1/24 (* (pow phi1 2) (sin theta))))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* (pow phi1 2) (+ (* -1/2 (sin theta)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin theta))) (* 1/24 (sin theta)))))))))
#s(approx (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (sin delta)))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (+ (sin delta) (* -1/2 (* (pow phi1 2) (sin delta))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow phi1 2) (sin delta))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin delta))) (* 1/24 (sin delta)))))))))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (* 1/12 (* (cos theta) (sin delta)))))))))))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (+ (* 1/12 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/144 (* (cos theta) (sin delta))) (+ (* -1/240 (* (cos theta) (sin delta))) (+ (* -1/720 (* (cos theta) (sin delta))) (* -1/5040 (* (cos theta) (sin delta))))))))))))))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow phi1 2)))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (cos (* 2 (+ (/ (PI) 2) phi1))) #s(hole binary64 (cos (PI))))
#s(approx (cos (* 2 (+ (/ (PI) 2) phi1))) #s(hole binary64 (+ (cos (PI)) (* -2 (* phi1 (sin (PI)))))))
#s(approx (cos (* 2 (+ (/ (PI) 2) phi1))) #s(hole binary64 (+ (cos (PI)) (* phi1 (- (* -2 (* phi1 (cos (PI)))) (* 2 (sin (PI))))))))
#s(approx (cos (* 2 (+ (/ (PI) 2) phi1))) #s(hole binary64 (+ (cos (PI)) (* phi1 (- (* phi1 (+ (* -2 (cos (PI))) (* 4/3 (* phi1 (sin (PI)))))) (* 2 (sin (PI))))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* phi1 (cos delta))))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (cos delta)))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* phi1 (+ (* -1 (* phi1 (cos delta))) (* -1 (* (cos theta) (sin delta))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* phi1 (+ (* -1 (cos delta)) (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))))))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (sin delta))))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin delta) (* phi1 (cos delta))))))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin delta) (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (sin delta)) (* -1/6 (sin delta))))))))))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin delta) (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (sin delta)) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (sin delta)))))))))))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* 2 (+ (/ (PI) 2) phi1)) #s(hole binary64 (* 2 phi1)))
#s(approx (* 2 (+ (/ (PI) 2) phi1)) #s(hole binary64 (* phi1 (+ 2 (/ (PI) phi1)))))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1))))) #s(hole binary64 (+ 1/2 (* 1/2 (cos (* 2 (+ phi1 (* 1/2 (PI)))))))))
#s(approx (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1)))) #s(hole binary64 (* 1/2 (cos (* 2 (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (/ (PI) 2) phi1) #s(hole binary64 phi1))
#s(approx (+ (/ (PI) 2) phi1) #s(hole binary64 (* phi1 (+ 1 (* 1/2 (/ (PI) phi1))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* (cos phi1) (sin theta))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* (cos phi1) (sin delta))))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
#s(approx (cos (* 2 (+ (/ (PI) 2) phi1))) #s(hole binary64 (cos (* 2 (+ phi1 (* 1/2 (PI)))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* 2 (+ (/ (PI) 2) phi1)) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (PI) phi1)) 2)))))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1))))) #s(hole binary64 (+ 1/2 (* 1/2 (cos (* 2 (- (* 1/2 (PI)) (* -1 phi1))))))))
#s(approx (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1)))) #s(hole binary64 (* 1/2 (cos (* 2 (- (* 1/2 (PI)) (* -1 phi1)))))))
#s(approx (+ (/ (PI) 2) phi1) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ (PI) phi1)) 1)))))
#s(approx (cos (* 2 (+ (/ (PI) 2) phi1))) #s(hole binary64 (cos (* 2 (- (* 1/2 (PI)) (* -1 phi1))))))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (cos phi1))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (+ (cos phi1) (* -1/6 (* (pow delta 2) (cos phi1)))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (+ (cos phi1) (* (pow delta 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow delta 2) (cos phi1)))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (+ (cos phi1) (* (pow delta 2) (+ (* -1/6 (cos phi1)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* 1/120 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1)))))))))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/120 (* (cos phi1) (* (cos theta) (sin phi1))))))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (sin delta) theta) #s(hole binary64 (* delta theta)))
#s(approx (* (sin delta) theta) #s(hole binary64 (* delta (+ theta (* -1/6 (* (pow delta 2) theta))))))
#s(approx (* (sin delta) theta) #s(hole binary64 (* delta (+ theta (* (pow delta 2) (+ (* -1/6 theta) (* 1/120 (* (pow delta 2) theta))))))))
#s(approx (* (sin delta) theta) #s(hole binary64 (* delta (+ theta (* (pow delta 2) (+ (* -1/6 theta) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) theta)) (* 1/120 theta)))))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* -1/2 (* delta (sin phi1))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (* (cos phi1) (cos theta)))))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (* -1 (pow (sin phi1) 2)))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* -1 (pow (sin phi1) 2))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (+ (* -1 (pow (sin phi1) 2)) (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (* 1/2 (pow (sin phi1) 2)) 1/2))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (+ (* -1 (pow (sin phi1) 2)) (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (+ (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/2 (pow (sin phi1) 2))) 1/2))))))))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* delta (* (cos phi1) (sin phi1))) (pow (sin phi1) 2))))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (sin phi1)))))) (* (cos phi1) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (sin delta) theta) #s(hole binary64 (* theta (sin delta))))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1))))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (cos phi1))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* -1/6 (* (pow theta 2) (cos phi1)))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* (pow theta 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow theta 2) (cos phi1)))))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* (pow theta 2) (+ (* -1/6 (cos phi1)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin phi1)))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1))))))))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta)))))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* 1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))))

Calls

15 calls:

Time	Variable		Point	Expression
6.0ms	theta	@	inf	((+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))))) (* (* (sin theta) (sin delta)) (cos phi1)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (* 2 (+ (/ (PI) 2) phi1)) (+ 1/2 (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1))))) (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1)))) (+ (/ (PI) 2) phi1) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (cos phi1) (sin theta)) (sin delta)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta))) (* (* (cos phi1) (sin theta)) (sin delta)) (* (cos phi1) (sin theta)) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (* (* (cos phi1) (sin delta)) (sin theta)) (* (cos phi1) (sin delta)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) (pow (sin phi1) 2) (* (sin theta) (sin delta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (* (sin delta) theta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (cos (* 2 (+ (/ (PI) 2) phi1))) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)))
5.0ms	phi1	@	-inf	((+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))))) (* (* (sin theta) (sin delta)) (cos phi1)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (* 2 (+ (/ (PI) 2) phi1)) (+ 1/2 (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1))))) (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1)))) (+ (/ (PI) 2) phi1) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (cos phi1) (sin theta)) (sin delta)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta))) (* (* (cos phi1) (sin theta)) (sin delta)) (* (cos phi1) (sin theta)) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (* (* (cos phi1) (sin delta)) (sin theta)) (* (cos phi1) (sin delta)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) (pow (sin phi1) 2) (* (sin theta) (sin delta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (* (sin delta) theta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (cos (* 2 (+ (/ (PI) 2) phi1))) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)))
5.0ms	phi1	@	inf	((+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))))) (* (* (sin theta) (sin delta)) (cos phi1)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (* 2 (+ (/ (PI) 2) phi1)) (+ 1/2 (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1))))) (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1)))) (+ (/ (PI) 2) phi1) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (cos phi1) (sin theta)) (sin delta)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta))) (* (* (cos phi1) (sin theta)) (sin delta)) (* (cos phi1) (sin theta)) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (* (* (cos phi1) (sin delta)) (sin theta)) (* (cos phi1) (sin delta)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) (pow (sin phi1) 2) (* (sin theta) (sin delta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (* (sin delta) theta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (cos (* 2 (+ (/ (PI) 2) phi1))) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)))
5.0ms	delta	@	inf	((+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))))) (* (* (sin theta) (sin delta)) (cos phi1)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (* 2 (+ (/ (PI) 2) phi1)) (+ 1/2 (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1))))) (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1)))) (+ (/ (PI) 2) phi1) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (cos phi1) (sin theta)) (sin delta)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta))) (* (* (cos phi1) (sin theta)) (sin delta)) (* (cos phi1) (sin theta)) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (* (* (cos phi1) (sin delta)) (sin theta)) (* (cos phi1) (sin delta)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) (pow (sin phi1) 2) (* (sin theta) (sin delta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (* (sin delta) theta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (cos (* 2 (+ (/ (PI) 2) phi1))) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)))
5.0ms	delta	@	-inf	((+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))))) (* (* (sin theta) (sin delta)) (cos phi1)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (* 2 (+ (/ (PI) 2) phi1)) (+ 1/2 (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1))))) (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1)))) (+ (/ (PI) 2) phi1) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (cos phi1) (sin theta)) (sin delta)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta))) (* (* (cos phi1) (sin theta)) (sin delta)) (* (cos phi1) (sin theta)) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (* (* (cos phi1) (sin delta)) (sin theta)) (* (cos phi1) (sin delta)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) (pow (sin phi1) 2) (* (sin theta) (sin delta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (* (sin delta) theta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (cos (* 2 (+ (/ (PI) 2) phi1))) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)))

simplify207.0ms (1.5%)

Memory

25.8MiB live, 121.3MiB allocated; 13ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	871	8084
1	2844	7627
2	6898	7625
0	8128	7206

Stop Event

1×	iter limit
1×	node limit

Counts

228 → 228

Calls

Call 1

Inputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (* 2 (+ (/ (PI) 2) phi1)) #s(hole binary64 (PI)))
#s(approx (* 2 (+ (/ (PI) 2) phi1)) #s(hole binary64 (+ (PI) (* 2 phi1))))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1))))) #s(hole binary64 (+ 1/2 (* 1/2 (cos (PI))))))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1))))) #s(hole binary64 (+ 1/2 (+ (* -1 (* phi1 (sin (PI)))) (* 1/2 (cos (PI)))))))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1))))) #s(hole binary64 (+ 1/2 (+ (* 1/2 (cos (PI))) (* phi1 (+ (* -1 (sin (PI))) (* -1 (* phi1 (cos (PI))))))))))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1))))) #s(hole binary64 (+ 1/2 (+ (* 1/2 (cos (PI))) (* phi1 (+ (* -1 (sin (PI))) (* phi1 (+ (* -1 (cos (PI))) (* 2/3 (* phi1 (sin (PI))))))))))))
#s(approx (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1)))) #s(hole binary64 (* 1/2 (cos (PI)))))
#s(approx (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1)))) #s(hole binary64 (+ (* -1 (* phi1 (sin (PI)))) (* 1/2 (cos (PI))))))
#s(approx (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1)))) #s(hole binary64 (+ (* 1/2 (cos (PI))) (* phi1 (+ (* -1 (sin (PI))) (* -1 (* phi1 (cos (PI)))))))))
#s(approx (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1)))) #s(hole binary64 (+ (* 1/2 (cos (PI))) (* phi1 (+ (* -1 (sin (PI))) (* phi1 (+ (* -1 (cos (PI))) (* 2/3 (* phi1 (sin (PI)))))))))))
#s(approx (+ (/ (PI) 2) phi1) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ (/ (PI) 2) phi1) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (atan2 (* (* (cos phi1) (sin theta)) (sin delta)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (sin theta)))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* -1/2 (* (pow phi1 2) (sin theta))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* (pow phi1 2) (+ (* -1/2 (sin theta)) (* 1/24 (* (pow phi1 2) (sin theta))))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* (pow phi1 2) (+ (* -1/2 (sin theta)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin theta))) (* 1/24 (sin theta)))))))))
#s(approx (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (sin delta)))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (+ (sin delta) (* -1/2 (* (pow phi1 2) (sin delta))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow phi1 2) (sin delta))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin delta))) (* 1/24 (sin delta)))))))))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (* 1/12 (* (cos theta) (sin delta)))))))))))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (+ (* 1/12 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/144 (* (cos theta) (sin delta))) (+ (* -1/240 (* (cos theta) (sin delta))) (+ (* -1/720 (* (cos theta) (sin delta))) (* -1/5040 (* (cos theta) (sin delta))))))))))))))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow phi1 2)))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (cos (* 2 (+ (/ (PI) 2) phi1))) #s(hole binary64 (cos (PI))))
#s(approx (cos (* 2 (+ (/ (PI) 2) phi1))) #s(hole binary64 (+ (cos (PI)) (* -2 (* phi1 (sin (PI)))))))
#s(approx (cos (* 2 (+ (/ (PI) 2) phi1))) #s(hole binary64 (+ (cos (PI)) (* phi1 (- (* -2 (* phi1 (cos (PI)))) (* 2 (sin (PI))))))))
#s(approx (cos (* 2 (+ (/ (PI) 2) phi1))) #s(hole binary64 (+ (cos (PI)) (* phi1 (- (* phi1 (+ (* -2 (cos (PI))) (* 4/3 (* phi1 (sin (PI)))))) (* 2 (sin (PI))))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* phi1 (cos delta))))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (cos delta)))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* phi1 (+ (* -1 (* phi1 (cos delta))) (* -1 (* (cos theta) (sin delta))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* phi1 (+ (* -1 (cos delta)) (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))))))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (sin delta))))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin delta) (* phi1 (cos delta))))))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin delta) (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (sin delta)) (* -1/6 (sin delta))))))))))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin delta) (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (sin delta)) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (sin delta)))))))))))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* 2 (+ (/ (PI) 2) phi1)) #s(hole binary64 (* 2 phi1)))
#s(approx (* 2 (+ (/ (PI) 2) phi1)) #s(hole binary64 (* phi1 (+ 2 (/ (PI) phi1)))))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1))))) #s(hole binary64 (+ 1/2 (* 1/2 (cos (* 2 (+ phi1 (* 1/2 (PI)))))))))
#s(approx (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1)))) #s(hole binary64 (* 1/2 (cos (* 2 (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (/ (PI) 2) phi1) #s(hole binary64 phi1))
#s(approx (+ (/ (PI) 2) phi1) #s(hole binary64 (* phi1 (+ 1 (* 1/2 (/ (PI) phi1))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* (cos phi1) (sin theta))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* (cos phi1) (sin delta))))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
#s(approx (cos (* 2 (+ (/ (PI) 2) phi1))) #s(hole binary64 (cos (* 2 (+ phi1 (* 1/2 (PI)))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* 2 (+ (/ (PI) 2) phi1)) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (PI) phi1)) 2)))))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1))))) #s(hole binary64 (+ 1/2 (* 1/2 (cos (* 2 (- (* 1/2 (PI)) (* -1 phi1))))))))
#s(approx (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1)))) #s(hole binary64 (* 1/2 (cos (* 2 (- (* 1/2 (PI)) (* -1 phi1)))))))
#s(approx (+ (/ (PI) 2) phi1) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ (PI) phi1)) 1)))))
#s(approx (cos (* 2 (+ (/ (PI) 2) phi1))) #s(hole binary64 (cos (* 2 (- (* 1/2 (PI)) (* -1 phi1))))))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (cos phi1))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (+ (cos phi1) (* -1/6 (* (pow delta 2) (cos phi1)))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (+ (cos phi1) (* (pow delta 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow delta 2) (cos phi1)))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (+ (cos phi1) (* (pow delta 2) (+ (* -1/6 (cos phi1)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* 1/120 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1)))))))))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/120 (* (cos phi1) (* (cos theta) (sin phi1))))))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (sin delta) theta) #s(hole binary64 (* delta theta)))
#s(approx (* (sin delta) theta) #s(hole binary64 (* delta (+ theta (* -1/6 (* (pow delta 2) theta))))))
#s(approx (* (sin delta) theta) #s(hole binary64 (* delta (+ theta (* (pow delta 2) (+ (* -1/6 theta) (* 1/120 (* (pow delta 2) theta))))))))
#s(approx (* (sin delta) theta) #s(hole binary64 (* delta (+ theta (* (pow delta 2) (+ (* -1/6 theta) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) theta)) (* 1/120 theta)))))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* -1/2 (* delta (sin phi1))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (* (cos phi1) (cos theta)))))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (* -1 (pow (sin phi1) 2)))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* -1 (pow (sin phi1) 2))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (+ (* -1 (pow (sin phi1) 2)) (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (* 1/2 (pow (sin phi1) 2)) 1/2))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (+ (* -1 (pow (sin phi1) 2)) (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (+ (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/2 (pow (sin phi1) 2))) 1/2))))))))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* delta (* (cos phi1) (sin phi1))) (pow (sin phi1) 2))))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (sin phi1)))))) (* (cos phi1) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (sin delta) theta) #s(hole binary64 (* theta (sin delta))))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1))))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (cos phi1))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* -1/6 (* (pow theta 2) (cos phi1)))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* (pow theta 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow theta 2) (cos phi1)))))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* (pow theta 2) (+ (* -1/6 (cos phi1)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin phi1)))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1))))))))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta)))))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* 1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))))

Outputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (+.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))) lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (+.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))) lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) lambda1))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (+.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))) lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (fma.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))) lambda1) lambda1 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (fma.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))) lambda1) lambda1 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (fma.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) lambda1) lambda1 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (fma.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))) lambda1) lambda1 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (.f64 (neg.f64 lambda1) (fma.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))) lambda1) #s(literal -1 binary64))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (.f64 (neg.f64 lambda1) (fma.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))) lambda1) #s(literal -1 binary64))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 (neg.f64 lambda1) (fma.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) lambda1) #s(literal -1 binary64))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (.f64 (neg.f64 lambda1) (fma.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))) lambda1) #s(literal -1 binary64))))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (.f64 phi1 (cos.f64 theta)) (sin.f64 delta)))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (fma.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64)) phi1 (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))) phi1))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 delta) phi1))) phi1 (cos.f64 delta)) phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))) phi1))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1) #s(literal -1/2 binary64))) (.f64 phi1 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 delta)) (sin.f64 theta) (.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) (.f64 phi1 phi1))) (.f64 phi1 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))))
#s(approx (* 2 (+ (/ (PI) 2) phi1)) #s(hole binary64 (PI)))
#s(approx (* 2 (+ (/ (PI) 2) phi1)) (PI.f64))
#s(approx (* 2 (+ (/ (PI) 2) phi1)) #s(hole binary64 (+ (PI) (* 2 phi1))))
#s(approx (* 2 (+ (/ (PI) 2) phi1)) (fma.f64 #s(literal 2 binary64) phi1 (PI.f64)))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1))))) #s(hole binary64 (+ 1/2 (* 1/2 (cos (PI))))))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1))))) #s(literal 0 binary64))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1))))) #s(hole binary64 (+ 1/2 (+ (* -1 (* phi1 (sin (PI)))) (* 1/2 (cos (PI)))))))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1))))) #s(literal 0 binary64))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1))))) #s(hole binary64 (+ 1/2 (+ (* 1/2 (cos (PI))) (* phi1 (+ (* -1 (sin (PI))) (* -1 (* phi1 (cos (PI))))))))))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1))))) (*.f64 phi1 phi1))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1))))) #s(hole binary64 (+ 1/2 (+ (* 1/2 (cos (PI))) (* phi1 (+ (* -1 (sin (PI))) (* phi1 (+ (* -1 (cos (PI))) (* 2/3 (* phi1 (sin (PI))))))))))))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1))))) (*.f64 phi1 phi1))
#s(approx (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1)))) #s(hole binary64 (* 1/2 (cos (PI)))))
#s(approx (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1)))) #s(literal -1/2 binary64))
#s(approx (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1)))) #s(hole binary64 (+ (* -1 (* phi1 (sin (PI)))) (* 1/2 (cos (PI))))))
#s(approx (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1)))) #s(literal -1/2 binary64))
#s(approx (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1)))) #s(hole binary64 (+ (* 1/2 (cos (PI))) (* phi1 (+ (* -1 (sin (PI))) (* -1 (* phi1 (cos (PI)))))))))
#s(approx (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1)))) (fma.f64 phi1 phi1 #s(literal -1/2 binary64)))
#s(approx (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1)))) #s(hole binary64 (+ (* 1/2 (cos (PI))) (* phi1 (+ (* -1 (sin (PI))) (* phi1 (+ (* -1 (cos (PI))) (* 2/3 (* phi1 (sin (PI)))))))))))
#s(approx (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1)))) (fma.f64 phi1 phi1 #s(literal -1/2 binary64)))
#s(approx (+ (/ (PI) 2) phi1) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ (/ (PI) 2) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ (/ (PI) 2) phi1) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (+ (/ (PI) 2) phi1) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1))
#s(approx (atan2 (* (* (cos phi1) (sin theta)) (sin delta)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1) #s(literal -1/2 binary64))) (.f64 phi1 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 delta)) (sin.f64 theta) (.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) (.f64 phi1 phi1))) (.f64 phi1 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (sin theta)))
#s(approx (* (cos phi1) (sin theta)) (sin.f64 theta))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* -1/2 (* (pow phi1 2) (sin theta))))))
#s(approx (* (cos phi1) (sin theta)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 theta)))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* (pow phi1 2) (+ (* -1/2 (sin theta)) (* 1/24 (* (pow phi1 2) (sin theta))))))))
#s(approx (* (cos phi1) (sin theta)) (fma.f64 (.f64 (sin.f64 theta) (fma.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1) #s(literal -1/2 binary64))) (*.f64 phi1 phi1) (sin.f64 theta)))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* (pow phi1 2) (+ (* -1/2 (sin theta)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin theta))) (* 1/24 (sin theta)))))))))
#s(approx (* (cos phi1) (sin theta)) (fma.f64 (fma.f64 (.f64 (sin.f64 theta) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) (.f64 phi1 phi1) (.f64 #s(literal -1/2 binary64) (sin.f64 theta))) (*.f64 phi1 phi1) (sin.f64 theta)))
#s(approx (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1) #s(literal -1/2 binary64))) (.f64 phi1 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 delta)) (sin.f64 theta) (.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) (.f64 phi1 phi1))) (.f64 phi1 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (sin delta)))
#s(approx (* (cos phi1) (sin delta)) (sin.f64 delta))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (+ (sin delta) (* -1/2 (* (pow phi1 2) (sin delta))))))
#s(approx (* (cos phi1) (sin delta)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 delta)))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow phi1 2) (sin delta))))))))
#s(approx (* (cos phi1) (sin delta)) (fma.f64 (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1) #s(literal -1/2 binary64))) (*.f64 phi1 phi1) (sin.f64 delta)))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin delta))) (* 1/24 (sin delta)))))))))
#s(approx (* (cos phi1) (sin delta)) (fma.f64 (fma.f64 (.f64 (sin.f64 delta) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) (.f64 phi1 phi1) (.f64 #s(literal -1/2 binary64) (sin.f64 delta))) (*.f64 phi1 phi1) (sin.f64 delta)))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (neg.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta)))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (neg.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (*.f64 (cos.f64 delta) phi1))) phi1 (cos.f64 delta)))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (fma.f64 (neg.f64 (sin.f64 delta)) (cos.f64 theta) (.f64 (-.f64 (.f64 (neg.f64 phi1) (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64))) (cos.f64 delta)) phi1)) phi1 (cos.f64 delta)))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) (.f64 (.f64 phi1 (cos.f64 theta)) (sin.f64 delta)))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) (.f64 (fma.f64 (.f64 phi1 phi1) (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64)) (*.f64 (cos.f64 theta) (sin.f64 delta))) phi1))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (* 1/12 (* (cos theta) (sin delta)))))))))))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) (.f64 (fma.f64 (fma.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2/15 binary64)) (.f64 phi1 phi1) (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64))) (.f64 phi1 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) phi1))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (+ (* 1/12 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/144 (* (cos theta) (sin delta))) (+ (* -1/240 (* (cos theta) (sin delta))) (+ (* -1/720 (* (cos theta) (sin delta))) (* -1/5040 (* (cos theta) (sin delta))))))))))))))))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2/15 binary64) (.f64 (fma.f64 (.f64 #s(literal -1/144 binary64) (cos.f64 theta)) (sin.f64 delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -29/5040 binary64))) (.f64 phi1 phi1))) (.f64 phi1 phi1) (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64))) (.f64 phi1 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) phi1))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow phi1 2)))
#s(approx (pow (sin phi1) 2) (*.f64 phi1 phi1))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))))
#s(approx (pow (sin phi1) 2) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/3 binary64) #s(literal 1 binary64)) (*.f64 phi1 phi1)))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))))
#s(approx (pow (sin phi1) 2) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 2/45 binary64) (.f64 phi1 phi1)) #s(literal 1/3 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) (*.f64 phi1 phi1)))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))))
#s(approx (pow (sin phi1) 2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/315 binary64) (.f64 phi1 phi1) #s(literal 2/45 binary64)) (.f64 phi1 phi1)) #s(literal 1/3 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 phi1 phi1)))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (neg.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta)))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (neg.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (*.f64 (cos.f64 delta) phi1))) phi1 (cos.f64 delta)))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (fma.f64 (neg.f64 (sin.f64 delta)) (cos.f64 theta) (.f64 (-.f64 (.f64 (neg.f64 phi1) (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64))) (cos.f64 delta)) phi1)) phi1 (cos.f64 delta)))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (.f64 phi1 (cos.f64 theta)) (sin.f64 delta)))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (fma.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64)) phi1 (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))) phi1))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 delta) phi1))) phi1 (cos.f64 delta)) phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))) phi1))
#s(approx (cos (* 2 (+ (/ (PI) 2) phi1))) #s(hole binary64 (cos (PI))))
#s(approx (cos (* 2 (+ (/ (PI) 2) phi1))) #s(literal -1 binary64))
#s(approx (cos (* 2 (+ (/ (PI) 2) phi1))) #s(hole binary64 (+ (cos (PI)) (* -2 (* phi1 (sin (PI)))))))
#s(approx (cos (* 2 (+ (/ (PI) 2) phi1))) #s(literal -1 binary64))
#s(approx (cos (* 2 (+ (/ (PI) 2) phi1))) #s(hole binary64 (+ (cos (PI)) (* phi1 (- (* -2 (* phi1 (cos (PI)))) (* 2 (sin (PI))))))))
#s(approx (cos (* 2 (+ (/ (PI) 2) phi1))) (fma.f64 (*.f64 #s(literal 2 binary64) phi1) phi1 #s(literal -1 binary64)))
#s(approx (cos (* 2 (+ (/ (PI) 2) phi1))) #s(hole binary64 (+ (cos (PI)) (* phi1 (- (* phi1 (+ (* -2 (cos (PI))) (* 4/3 (* phi1 (sin (PI)))))) (* 2 (sin (PI))))))))
#s(approx (cos (* 2 (+ (/ (PI) 2) phi1))) (fma.f64 (*.f64 #s(literal 2 binary64) phi1) phi1 #s(literal -1 binary64)))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (cos.f64 theta) (sin.f64 delta) (*.f64 (cos.f64 delta) phi1)))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta)) phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* phi1 (cos delta))))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi1) (cos.f64 delta) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta))) phi1 (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (neg.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta)))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* phi1 (+ (* -1 (* phi1 (cos delta))) (* -1 (* (cos theta) (sin delta))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (neg.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (*.f64 (cos.f64 delta) phi1))) phi1 (cos.f64 delta)))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* phi1 (+ (* -1 (cos delta)) (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (fma.f64 (neg.f64 (sin.f64 delta)) (cos.f64 theta) (.f64 (neg.f64 (fma.f64 (.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64)) phi1 (cos.f64 delta))) phi1)) phi1 (cos.f64 delta)))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (sin delta))))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) (*.f64 (sin.f64 delta) phi1))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin delta) (* phi1 (cos delta))))))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) (*.f64 (fma.f64 (cos.f64 delta) phi1 (sin.f64 delta)) phi1))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin delta) (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (sin delta)) (* -1/6 (sin delta))))))))))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) (.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 delta) #s(literal -2/3 binary64)) phi1 (cos.f64 delta)) phi1 (sin.f64 delta)) phi1))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin delta) (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (sin delta)) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (sin delta)))))))))))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 delta) phi1) (*.f64 (sin.f64 delta) #s(literal -2/3 binary64))) phi1 (cos.f64 delta)) phi1 (sin.f64 delta)) phi1))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)))
#s(approx (* 2 (+ (/ (PI) 2) phi1)) #s(hole binary64 (* 2 phi1)))
#s(approx (* 2 (+ (/ (PI) 2) phi1)) (*.f64 #s(literal 2 binary64) phi1))
#s(approx (* 2 (+ (/ (PI) 2) phi1)) #s(hole binary64 (* phi1 (+ 2 (/ (PI) phi1)))))
#s(approx (* 2 (+ (/ (PI) 2) phi1)) (*.f64 (-.f64 (/.f64 (PI.f64) phi1) #s(literal -2 binary64)) phi1))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1))))) #s(hole binary64 (+ 1/2 (* 1/2 (cos (* 2 (+ phi1 (* 1/2 (PI)))))))))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1))))) (fma.f64 (cos.f64 (*.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1)))) #s(hole binary64 (* 1/2 (cos (* 2 (+ phi1 (* 1/2 (PI))))))))
#s(approx (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1)))) (.f64 (cos.f64 (.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1))) #s(literal 1/2 binary64)))
#s(approx (+ (/ (PI) 2) phi1) #s(hole binary64 phi1))
#s(approx (+ (/ (PI) 2) phi1) phi1)
#s(approx (+ (/ (PI) 2) phi1) #s(hole binary64 (* phi1 (+ 1 (* 1/2 (/ (PI) phi1))))))
#s(approx (+ (/ (PI) 2) phi1) (*.f64 (fma.f64 (/.f64 (PI.f64) phi1) #s(literal 1/2 binary64) #s(literal 1 binary64)) phi1))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* (cos phi1) (sin theta))))
#s(approx (* (cos phi1) (sin theta)) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* (cos phi1) (sin delta))))
#s(approx (* (cos phi1) (sin delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) (.f64 (.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1)))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (pow (sin phi1) 2) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))
#s(approx (cos (* 2 (+ (/ (PI) 2) phi1))) #s(hole binary64 (cos (* 2 (+ phi1 (* 1/2 (PI)))))))
#s(approx (cos (* 2 (+ (/ (PI) 2) phi1))) (cos.f64 (*.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta)))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))
#s(approx (* 2 (+ (/ (PI) 2) phi1)) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (PI) phi1)) 2)))))
#s(approx (* 2 (+ (/ (PI) 2) phi1)) (.f64 (.f64 #s(literal 1 binary64) (-.f64 (/.f64 (PI.f64) phi1) #s(literal -2 binary64))) phi1))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1))))) #s(hole binary64 (+ 1/2 (* 1/2 (cos (* 2 (- (* 1/2 (PI)) (* -1 phi1))))))))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1))))) (fma.f64 (cos.f64 (*.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1)))) #s(hole binary64 (* 1/2 (cos (* 2 (- (* 1/2 (PI)) (* -1 phi1)))))))
#s(approx (* 1/2 (cos (* 2 (+ (/ (PI) 2) phi1)))) (.f64 (cos.f64 (.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1))) #s(literal 1/2 binary64)))
#s(approx (+ (/ (PI) 2) phi1) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ (PI) phi1)) 1)))))
#s(approx (+ (/ (PI) 2) phi1) (*.f64 (neg.f64 phi1) (fma.f64 (/.f64 (PI.f64) phi1) #s(literal -1/2 binary64) #s(literal -1 binary64))))
#s(approx (cos (* 2 (+ (/ (PI) 2) phi1))) #s(hole binary64 (cos (* 2 (- (* 1/2 (PI)) (* -1 phi1))))))
#s(approx (cos (* 2 (+ (/ (PI) 2) phi1))) (cos.f64 (*.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1))))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (fma.f64 (.f64 (cos.f64 phi1) delta) (.f64 (cos.f64 theta) (sin.f64 phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (fma.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1) (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) delta)) delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) delta) (sin.f64 theta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 theta))) delta))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (fma.f64 #s(literal 1/120 binary64) (.f64 delta delta) #s(literal -1/6 binary64))) (.f64 delta delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) delta))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 theta) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta))) (.f64 delta delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) delta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 theta) delta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 delta delta) #s(literal 1 binary64)) (sin.f64 theta)) delta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (.f64 (sin.f64 theta) (fma.f64 #s(literal 1/120 binary64) (.f64 delta delta) #s(literal -1/6 binary64))) (.f64 delta delta) (sin.f64 theta)) delta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 theta) (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta) (.f64 #s(literal -1/6 binary64) (sin.f64 theta))) (.f64 delta delta) (sin.f64 theta)) delta))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) delta) (sin.f64 theta)))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 theta))) delta))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (fma.f64 #s(literal 1/120 binary64) (.f64 delta delta) #s(literal -1/6 binary64))) (.f64 delta delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) delta))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 theta) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta))) (.f64 delta delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) delta))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) delta) (sin.f64 theta)))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 theta))) delta))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (fma.f64 #s(literal 1/120 binary64) (.f64 delta delta) #s(literal -1/6 binary64))) (.f64 delta delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) delta))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 theta) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta))) (.f64 delta delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) delta))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (cos phi1))))
#s(approx (* (cos phi1) (sin delta)) (*.f64 (cos.f64 phi1) delta))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (+ (cos phi1) (* -1/6 (* (pow delta 2) (cos phi1)))))))
#s(approx (* (cos phi1) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 delta delta) #s(literal 1 binary64)) (cos.f64 phi1)) delta))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (+ (cos phi1) (* (pow delta 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow delta 2) (cos phi1)))))))))
#s(approx (* (cos phi1) (sin delta)) (.f64 (fma.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal 1/120 binary64) (.f64 delta delta) #s(literal -1/6 binary64))) (.f64 delta delta) (cos.f64 phi1)) delta))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (+ (cos phi1) (* (pow delta 2) (+ (* -1/6 (cos phi1)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (* (cos phi1) (sin delta)) (.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta) (.f64 #s(literal -1/6 binary64) (cos.f64 phi1))) (.f64 delta delta) (cos.f64 phi1)) delta))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (.f64 (neg.f64 (cos.f64 phi1)) delta) (.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi1))))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (-.f64 (.f64 (neg.f64 delta) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta (.f64 (cos.f64 phi1) (cos.f64 phi1))))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (fma.f64 (.f64 (neg.f64 (cos.f64 theta)) (sin.f64 phi1)) (cos.f64 phi1) (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal -1/2 binary64))) delta)) delta (.f64 (cos.f64 phi1) (cos.f64 phi1))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) (.f64 (.f64 (cos.f64 phi1) delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* 1/120 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1)))))))))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) (.f64 (fma.f64 (.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (fma.f64 #s(literal 1/120 binary64) (.f64 delta delta) #s(literal -1/6 binary64))) (.f64 delta delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/120 (* (cos phi1) (* (cos theta) (sin phi1))))))))))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) (.f64 (fma.f64 (fma.f64 (.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta) (.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 delta delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (.f64 (neg.f64 (cos.f64 phi1)) delta) (.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi1))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (-.f64 (.f64 (neg.f64 delta) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta (.f64 (cos.f64 phi1) (cos.f64 phi1))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (fma.f64 (.f64 (neg.f64 (cos.f64 theta)) (sin.f64 phi1)) (cos.f64 phi1) (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal -1/2 binary64))) delta)) delta (.f64 (cos.f64 phi1) (cos.f64 phi1))))
#s(approx (* (sin delta) theta) #s(hole binary64 (* delta theta)))
#s(approx (* (sin delta) theta) (*.f64 theta delta))
#s(approx (* (sin delta) theta) #s(hole binary64 (* delta (+ theta (* -1/6 (* (pow delta 2) theta))))))
#s(approx (* (sin delta) theta) (.f64 (fma.f64 (.f64 (*.f64 delta delta) theta) #s(literal -1/6 binary64) theta) delta))
#s(approx (* (sin delta) theta) #s(hole binary64 (* delta (+ theta (* (pow delta 2) (+ (* -1/6 theta) (* 1/120 (* (pow delta 2) theta))))))))
#s(approx (* (sin delta) theta) (.f64 (fma.f64 (.f64 theta (fma.f64 #s(literal 1/120 binary64) (.f64 delta delta) #s(literal -1/6 binary64))) (.f64 delta delta) theta) delta))
#s(approx (* (sin delta) theta) #s(hole binary64 (* delta (+ theta (* (pow delta 2) (+ (* -1/6 theta) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) theta)) (* 1/120 theta)))))))))
#s(approx (* (sin delta) theta) (.f64 (fma.f64 (fma.f64 (.f64 theta (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta) (.f64 #s(literal -1/6 binary64) theta)) (.f64 delta delta) theta) delta))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (fma.f64 (.f64 (cos.f64 phi1) delta) (.f64 (cos.f64 theta) (sin.f64 phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (fma.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1) (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) delta)) delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 phi1))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) delta (sin.f64 phi1)))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* -1/2 (* delta (sin phi1))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (cos.f64 theta))) delta (sin.f64 phi1)))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (* (cos phi1) (cos theta)))))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1))) delta (.f64 (cos.f64 phi1) (cos.f64 theta))) delta (sin.f64 phi1)))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (* -1 (pow (sin phi1) 2)))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* -1 (pow (sin phi1) 2))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (.f64 (neg.f64 (cos.f64 phi1)) delta) (.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi1))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (+ (* -1 (pow (sin phi1) 2)) (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (* 1/2 (pow (sin phi1) 2)) 1/2))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal -1/2 binary64)) delta (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (neg.f64 (sin.f64 phi1)))) delta (*.f64 (cos.f64 phi1) (cos.f64 phi1))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ 1 (+ (* -1 (pow (sin phi1) 2)) (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (+ (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/2 (pow (sin phi1) 2))) 1/2))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (fma.f64 (.f64 (neg.f64 (cos.f64 theta)) (sin.f64 phi1)) (cos.f64 phi1) (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal -1/2 binary64))) delta)) delta (.f64 (cos.f64 phi1) (cos.f64 phi1))))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* delta (* (cos phi1) (sin phi1))) (pow (sin phi1) 2))))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) (*.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) delta (sin.f64 phi1))))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 phi1))) delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (sin phi1)))))) (* (cos phi1) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) delta (.f64 (cos.f64 phi1) (sin.f64 phi1))) delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (* (sin delta) theta) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin delta) theta) (*.f64 (sin.f64 delta) theta))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (fma.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1) (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(literal 1/24 binary64) (.f64 theta theta) #s(literal -1/2 binary64))) (*.f64 theta theta))))
#s(approx (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1))))))))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (fma.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 delta)) (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(literal -1/720 binary64) (.f64 theta theta) #s(literal 1/24 binary64))) (.f64 theta theta))) (*.f64 theta theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) theta) (sin.f64 delta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta))) theta))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 #s(literal 1/120 binary64) (.f64 theta theta) #s(literal -1/6 binary64))) (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) theta))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 #s(literal -1/5040 binary64) (.f64 theta theta) #s(literal 1/120 binary64))) (.f64 theta theta) (.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 delta))) (.f64 theta theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) theta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/120 binary64) (.f64 theta theta) #s(literal -1/6 binary64))) (.f64 theta theta) (sin.f64 delta)) theta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 delta) (fma.f64 #s(literal -1/5040 binary64) (.f64 theta theta) #s(literal 1/120 binary64))) (.f64 theta theta) (.f64 #s(literal -1/6 binary64) (sin.f64 delta))) (.f64 theta theta) (sin.f64 delta)) theta))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) theta) (sin.f64 delta)))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta))) theta))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 #s(literal 1/120 binary64) (.f64 theta theta) #s(literal -1/6 binary64))) (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) theta))
#s(approx (* (* (cos phi1) (sin theta)) (sin delta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 #s(literal -1/5040 binary64) (.f64 theta theta) #s(literal 1/120 binary64))) (.f64 theta theta) (.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 delta))) (.f64 theta theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) theta))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (cos phi1))))
#s(approx (* (cos phi1) (sin theta)) (*.f64 (cos.f64 phi1) theta))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* -1/6 (* (pow theta 2) (cos phi1)))))))
#s(approx (* (cos phi1) (sin theta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 theta theta) #s(literal 1 binary64)) (cos.f64 phi1)) theta))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* (pow theta 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow theta 2) (cos phi1)))))))))
#s(approx (* (cos phi1) (sin theta)) (.f64 (fma.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal 1/120 binary64) (.f64 theta theta) #s(literal -1/6 binary64))) (.f64 theta theta) (cos.f64 phi1)) theta))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* (pow theta 2) (+ (* -1/6 (cos phi1)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (* (cos phi1) (sin theta)) (.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/5040 binary64) (.f64 theta theta) #s(literal 1/120 binary64))) (.f64 theta theta) (.f64 #s(literal -1/6 binary64) (cos.f64 phi1))) (.f64 theta theta) (cos.f64 phi1)) theta))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) theta) (sin.f64 delta)))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta))) theta))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 #s(literal 1/120 binary64) (.f64 theta theta) #s(literal -1/6 binary64))) (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) theta))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 #s(literal -1/5040 binary64) (.f64 theta theta) #s(literal 1/120 binary64))) (.f64 theta theta) (.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 delta))) (.f64 theta theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) theta))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(literal -1/24 binary64) (.f64 theta theta) #s(literal 1/2 binary64))) (.f64 theta theta) (cos.f64 delta))))
#s(approx (- (cos delta) (+ (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 delta)) (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(literal 1/720 binary64) (.f64 theta theta) #s(literal -1/24 binary64))) (.f64 theta theta))) (.f64 theta theta) (fma.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin phi1)))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(literal 1/24 binary64) (.f64 theta theta) #s(literal -1/2 binary64))) (.f64 theta theta) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (* (* (* (cos phi1) (sin delta)) (cos theta)) (sin phi1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 delta)) (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(literal -1/720 binary64) (.f64 theta theta) #s(literal 1/24 binary64))) (.f64 theta theta))) (.f64 theta theta) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(literal -1/24 binary64) (.f64 theta theta) #s(literal 1/2 binary64))) (.f64 theta theta) (cos.f64 delta))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 delta)) (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(literal 1/720 binary64) (.f64 theta theta) #s(literal -1/24 binary64))) (.f64 theta theta))) (.f64 theta theta) (fma.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (fma.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1) (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(literal 1/24 binary64) (.f64 theta theta) #s(literal -1/2 binary64))) (*.f64 theta theta))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1))))))))))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (fma.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 delta)) (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(literal -1/720 binary64) (.f64 theta theta) #s(literal 1/24 binary64))) (.f64 theta theta))) (*.f64 theta theta))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 theta theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 #s(literal 1/24 binary64) (.f64 theta theta) #s(literal -1/2 binary64))) (.f64 theta theta) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta)))))))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 #s(literal -1/720 binary64) (.f64 theta theta) #s(literal 1/24 binary64))) (.f64 theta theta))) (.f64 theta theta) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(literal -1/24 binary64) (.f64 theta theta) #s(literal 1/2 binary64))) (.f64 theta theta) (cos.f64 delta))))
#s(approx (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* 1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 delta)) (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(literal 1/720 binary64) (.f64 theta theta) #s(literal -1/24 binary64))) (.f64 theta theta))) (.f64 theta theta) (fma.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))

rewrite237.0ms (1.8%)

Memory

-67.5MiB live, 155.4MiB allocated; 60ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	81	729
0	133	678
1	522	642
2	3447	638
0	8161	620

Stop Event

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

Counts

34 → 451

Calls

Call 1

Inputs
(fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1)))))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))
(.f64 #s(approx ( (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1))
#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta))
(*.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))
(.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))
(+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))))
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta)))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
(*.f64 (cos.f64 phi1) (sin.f64 theta))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))))
(.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(*.f64 (sin.f64 theta) (sin.f64 delta))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))
(*.f64 (sin.f64 delta) theta)
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))))
(cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))
(-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta)))
(fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))
(-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))
(.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))

Outputs
(.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))) (sin.f64 phi1))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64))) (sin.f64 phi1)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64))) (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64))) (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))) (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64))))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64))) (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64))))
(/.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))))
(/.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)))) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))))
(/.f64 (.f64 (sin.f64 phi1) (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)))) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))) (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64))))
(/.f64 (.f64 (sin.f64 phi1) (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)))) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(/.f64 (-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (pow.f64 (neg.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (neg.f64 (.f64 (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64)))) (neg.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) (-.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))))) (cos.f64 (+.f64 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))) phi1)))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))) phi1)) (cos.f64 (+.f64 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))) phi1))) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64))) (.f64 (sin.f64 phi1) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))))
(/.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 theta)) (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 phi1))))))
(/.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) (-.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64))))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))))) (cos.f64 (+.f64 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))) phi1))) #s(literal 2 binary64))
(fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1) (*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (cos.f64 phi1))) (sin.f64 delta) (*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(fma.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 theta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(fma.f64 (.f64 (sin.f64 phi1) (cos.f64 phi1)) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(fma.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 phi1)) (cos.f64 theta) (*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(fma.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 delta)) (.f64 (cos.f64 theta) (cos.f64 phi1)))) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 phi1) (sin.f64 phi1)) (*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1) (*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(fma.f64 (cos.f64 theta) (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 phi1)) (*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(fma.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(fma.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 phi1)) (*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(fma.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (sin.f64 phi1)) (*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(fma.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 delta)) (*.f64 (cos.f64 theta) (cos.f64 phi1)))) (sin.f64 phi1)))
(fma.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))
(fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 delta)) (*.f64 (cos.f64 theta) (cos.f64 phi1)))) (sin.f64 phi1)))
(fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))
(fma.f64 (sin.f64 phi1) (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 delta)) (.f64 (cos.f64 theta) (cos.f64 phi1)))) (sin.f64 phi1)))
(fma.f64 (sin.f64 phi1) (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))
(fma.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))))))
(-.f64 (/.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))))) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))) phi1)) #s(literal 2 binary64)))
(-.f64 (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (neg.f64 (cos.f64 theta)) (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 phi1))))
(-.f64 (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (.f64 (neg.f64 (sin.f64 delta)) (cos.f64 phi1)) (.f64 (cos.f64 theta) (sin.f64 phi1))))
(-.f64 (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (neg.f64 (sin.f64 phi1)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))))
(-.f64 (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (neg.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))
(-.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) (.f64 (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 delta)) (sin.f64 phi1)))
(-.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 delta)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(-.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) (.f64 (neg.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)))
(-.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) (.f64 (neg.f64 (sin.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) (-.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) (-.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64)))))
(+.f64 (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 delta)) (.f64 (cos.f64 theta) (cos.f64 phi1)))) (sin.f64 phi1)))
(+.f64 (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))
(+.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta))) lambda1))
(/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64)))) (neg.f64 (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta))) lambda1) (*.f64 lambda1 lambda1))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta)))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta))) lambda1))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta))) lambda1) (*.f64 lambda1 lambda1)))
(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta))))))
(+.f64 (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta))) lambda1) (.f64 lambda1 lambda1))) (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta))) #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta))) lambda1) (.f64 lambda1 lambda1))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta)))
(.f64 (.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))
(.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (cos.f64 phi1)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) (sin.f64 delta)))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (sin.f64 theta)) #s(literal 2 binary64))
(/.f64 (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 theta (sin.f64 delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 theta (sin.f64 delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) lambda1))
(/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 theta (sin.f64 delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 theta (sin.f64 delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 theta (sin.f64 delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64)))) (neg.f64 (fma.f64 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 theta (sin.f64 delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 theta (sin.f64 delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) lambda1) (*.f64 lambda1 lambda1))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 theta (sin.f64 delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 theta (sin.f64 delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 theta (sin.f64 delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 theta (sin.f64 delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 theta (sin.f64 delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) lambda1))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 theta (sin.f64 delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 theta (sin.f64 delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 theta (sin.f64 delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) lambda1) (*.f64 lambda1 lambda1)))
(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 theta (sin.f64 delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))) (/.f64 (pow.f64 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 theta (sin.f64 delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 theta (sin.f64 delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))))
(+.f64 (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 theta (sin.f64 delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 theta (sin.f64 delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) lambda1) (.f64 lambda1 lambda1))) (/.f64 (pow.f64 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 theta (sin.f64 delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 theta (sin.f64 delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 theta (sin.f64 delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) lambda1) (*.f64 lambda1 lambda1))))
(+.f64 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 theta (sin.f64 delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 theta (sin.f64 delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 theta (sin.f64 delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))
(.f64 #s(approx ( (sin theta) (sin delta)) (*.f64 theta (sin.f64 delta))) (cos.f64 phi1))
(.f64 (cos.f64 phi1) #s(approx ( (sin theta) (sin delta)) (*.f64 theta (sin.f64 delta))))
#s(approx (* (sin theta) (sin delta)) (*.f64 theta (sin.f64 delta)))
(*.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))
(/.f64 (.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 phi1 phi1)) #s(literal 2 binary64)) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))
(/.f64 (*.f64 (+.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64))) #s(literal 2 binary64)) (fma.f64 phi1 (-.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64))))
(/.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 phi1 phi1))) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))
(/.f64 (*.f64 #s(literal 2 binary64) (+.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)))) (fma.f64 phi1 (-.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64))))
(/.f64 (-.f64 (.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) phi1) (.f64 #s(literal 2 binary64) phi1))) (-.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) phi1)))
(/.f64 (+.f64 (pow.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 2 binary64) phi1) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 #s(literal 2 binary64) phi1) (.f64 #s(literal 2 binary64) phi1)) (.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) phi1)))))
(/.f64 (-.f64 (.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)) (.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))
(/.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) #s(literal 3 binary64)) (pow.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) #s(literal 3 binary64))) (fma.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 (.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)) (.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))
(/.f64 (+.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 phi1 phi1)) (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 phi1 phi1))) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))
(/.f64 (+.f64 (+.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)))) (fma.f64 phi1 (-.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64))))
(/.f64 (fma.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 phi1 phi1)) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))
(/.f64 (fma.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 phi1 phi1)) (fma.f64 phi1 (-.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64))) (.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (+.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64))))) (*.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (fma.f64 phi1 (-.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (+.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64))) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (.f64 (fma.f64 phi1 (-.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (*.f64 (fma.f64 phi1 (-.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))
(/.f64 (fma.f64 (+.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 phi1 (-.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64))) (.f64 (fma.f64 phi1 (-.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64))) (+.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64))))) (.f64 (fma.f64 phi1 (-.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64))) (fma.f64 phi1 (-.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)))))
(fma.f64 (sqrt.f64 (PI.f64)) (/.f64 (sqrt.f64 (PI.f64)) #s(literal 2 binary64)) (+.f64 phi1 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))
(fma.f64 (pow.f64 (cbrt.f64 (PI.f64)) #s(literal 2 binary64)) (/.f64 (cbrt.f64 (PI.f64)) #s(literal 2 binary64)) (+.f64 phi1 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))
(fma.f64 #s(literal 1 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (*.f64 #s(literal 1 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))
(fma.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) #s(literal 1 binary64) (*.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) #s(literal 1 binary64)))
(fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) phi1))
(fma.f64 #s(literal 2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) phi1))
(fma.f64 #s(literal 2 binary64) phi1 (*.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)))
(fma.f64 phi1 #s(literal 2 binary64) (*.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)))
(-.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (neg.f64 phi1) #s(literal 2 binary64)))
(-.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal -2 binary64) phi1))
(+.f64 (.f64 #s(literal 1 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)) (.f64 #s(literal 1 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))
(+.f64 (.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) #s(literal 1 binary64)) (.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) #s(literal 1 binary64)))
(+.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)
(+.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))
(+.f64 (.f64 #s(literal 2 binary64) phi1) (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)))
(+.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) phi1))
(+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))
(+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (+.f64 phi1 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))
(+.f64 phi1 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))
(*.f64 (+.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(*.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) (neg.f64 (neg.f64 (sin.f64 phi1))))
(*.f64 (fabs.f64 (neg.f64 (sin.f64 phi1))) (fabs.f64 (neg.f64 (sin.f64 phi1))))
(*.f64 (fabs.f64 (sin.f64 phi1)) (fabs.f64 (sin.f64 phi1)))
(*.f64 (exp.f64 (log.f64 (sin.f64 phi1))) (exp.f64 (log.f64 (sin.f64 phi1))))
(*.f64 (neg.f64 (sin.f64 phi1)) (neg.f64 (sin.f64 phi1)))
(*.f64 (sin.f64 phi1) (sin.f64 phi1))
(pow.f64 (exp.f64 (log.f64 (sin.f64 phi1))) #s(literal 2 binary64))
(pow.f64 (neg.f64 (sin.f64 phi1)) #s(literal 2 binary64))
(pow.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1 binary64))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) (sin.f64 (+.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (sin.f64 (+.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (neg.f64 phi1) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) (sin.f64 (+.f64 (neg.f64 phi1) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (PI.f64) phi1) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) (sin.f64 (+.f64 (+.f64 (PI.f64) phi1) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 phi1))) (cos.f64 (+.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 (PI.f64) phi1))) (cos.f64 (+.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 (PI.f64) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (neg.f64 phi1) (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (neg.f64 phi1) (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (PI.f64) phi1) (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (+.f64 (PI.f64) phi1) (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) (cos.f64 (-.f64 (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (cos.f64 (-.f64 (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) (cos.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (-.f64 (.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(/.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 #s(literal -1/2 binary64) (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1)))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (+.f64 (pow.f64 (.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))))))))
(/.f64 (neg.f64 (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (neg.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64))) (neg.f64 (fma.f64 (.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64)) (-.f64 (.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) (cos.f64 (+.f64 (neg.f64 phi1) (+.f64 (PI.f64) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (PI.f64) phi1) (neg.f64 phi1))) (cos.f64 (+.f64 (+.f64 (PI.f64) phi1) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 phi1)) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))
(/.f64 (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(/.f64 (fma.f64 (pow.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (+.f64 (pow.f64 (.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1)))))))
(/.f64 (fma.f64 (pow.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (fma.f64 (.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64)) (-.f64 (.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))
(neg.f64 (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi1)))
(neg.f64 (*.f64 (sin.f64 phi1) (neg.f64 (sin.f64 phi1))))
(fma.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal 1/2 binary64) (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64))
(-.f64 (/.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (/.f64 (pow.f64 (*.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (neg.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1)))) #s(literal 1/2 binary64)))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1)))))
(exp.f64 (*.f64 (log.f64 (exp.f64 (log.f64 (sin.f64 phi1)))) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (neg.f64 (sin.f64 phi1))) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1 binary64)))
(exp.f64 (log.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(+.f64 (/.f64 #s(literal 1/8 binary64) (fma.f64 (.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64)) (-.f64 (.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (/.f64 (.f64 (pow.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (fma.f64 (.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64)) (-.f64 (*.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(+.f64 (cosh.f64 (log.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (sinh.f64 (log.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 (*.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64)))
(*.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))))
(/.f64 (-.f64 (*.f64 phi1 phi1) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (*.f64 phi1 phi1))) (neg.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))
(/.f64 (neg.f64 (+.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 phi1 (-.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (*.f64 phi1 phi1)) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))
(/.f64 (+.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 phi1 phi1 (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (*.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))
(/.f64 (+.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 phi1 (-.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64))))
(fma.f64 (sqrt.f64 (PI.f64)) (/.f64 (sqrt.f64 (PI.f64)) #s(literal 2 binary64)) phi1)
(fma.f64 (pow.f64 (cbrt.f64 (PI.f64)) #s(literal 2 binary64)) (/.f64 (cbrt.f64 (PI.f64)) #s(literal 2 binary64)) phi1)
(-.f64 (/.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)) (/.f64 (*.f64 phi1 phi1) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))
(+.f64 (/.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (fma.f64 phi1 (-.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)))) (/.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 phi1 (-.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)))))
(+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)
(+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(.f64 (.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))
(.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (cos.f64 phi1)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) (sin.f64 delta)))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (sin.f64 theta)) #s(literal 2 binary64))
(/.f64 (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal 2 binary64))
(*.f64 (sin.f64 theta) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (sin.f64 theta))
(/.f64 (+.f64 (sin.f64 (-.f64 theta (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 theta (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 theta (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 theta (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) theta)) (cos.f64 (+.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) theta))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 theta (neg.f64 phi1))) (sin.f64 (+.f64 theta (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 theta (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (cos.f64 (+.f64 theta (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) theta)) (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) theta))) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (*.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))) lambda1))
(/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (*.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64)))) (neg.f64 (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))) lambda1) (.f64 lambda1 lambda1))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (*.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1)))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (*.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))) lambda1))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))) lambda1) (.f64 lambda1 lambda1)))
(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (*.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))))))
(+.f64 (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))) lambda1) (.f64 lambda1 lambda1))) (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))) #s(literal 3 binary64)) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))) lambda1) (.f64 lambda1 lambda1))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (*.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (*.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (*.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1)))))
(.f64 (.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))
(.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (cos.f64 phi1)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) (sin.f64 delta)))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (sin.f64 theta)) #s(literal 2 binary64))
(/.f64 (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal 2 binary64))
(*.f64 (sin.f64 delta) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(/.f64 (+.f64 (sin.f64 (-.f64 delta (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 delta (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 delta (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 delta (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) delta)) (cos.f64 (+.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) delta))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1)))) #s(literal -2 binary64))
(/.f64 (-.f64 (sin.f64 (+.f64 (neg.f64 phi1) delta)) (sin.f64 (-.f64 (neg.f64 phi1) delta))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) #s(literal 2 binary64))
(+.f64 (/.f64 (sin.f64 (-.f64 delta phi1)) #s(literal 2 binary64)) (/.f64 (sin.f64 (+.f64 delta phi1)) #s(literal 2 binary64)))
(/.f64 (-.f64 (.f64 (-.f64 (cos.f64 delta) (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (-.f64 (cos.f64 delta) (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (pow.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (-.f64 (cos.f64 delta) (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (-.f64 (cos.f64 delta) (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (-.f64 (cos.f64 delta) (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (-.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (sin.f64 phi1)) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))) (sin.f64 phi1) (cos.f64 delta))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (sin.f64 phi1)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (sin.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))) (sin.f64 phi1) (cos.f64 delta)))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
(fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))) (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (sin.f64 phi1) (cos.f64 delta))) (/.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))) (sin.f64 phi1) (cos.f64 delta))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))
(-.f64 (cos.f64 delta) (.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))))))
(-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))) (sin.f64 phi1)))
(+.f64 (-.f64 (cos.f64 delta) (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (neg.f64 (cos.f64 theta)) (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 phi1))))
(+.f64 (-.f64 (cos.f64 delta) (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (.f64 (neg.f64 (sin.f64 delta)) (cos.f64 phi1)) (.f64 (cos.f64 theta) (sin.f64 phi1))))
(+.f64 (-.f64 (cos.f64 delta) (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (neg.f64 (sin.f64 phi1)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))))
(+.f64 (-.f64 (cos.f64 delta) (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (neg.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))
(+.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))))) (cos.f64 delta))
(+.f64 (cos.f64 delta) (.f64 (neg.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))))) (sin.f64 phi1)))
(+.f64 (cos.f64 delta) (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))))))
(.f64 (.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1))
(.f64 (.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (cos.f64 phi1))) (sin.f64 delta))
(.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 theta) (cos.f64 phi1)))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(.f64 (.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 phi1)) (cos.f64 theta))
(.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))
(.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (sin.f64 phi1)))
(.f64 (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))
(.f64 (cos.f64 theta) (.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 phi1)))
(.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1)))
(.f64 (sin.f64 delta) (.f64 (*.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 phi1)))
(.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(.f64 (cos.f64 phi1) (.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (sin.f64 phi1)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))))
(/.f64 (.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal 2 binary64))
(*.f64 (+.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(*.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) (neg.f64 (neg.f64 (sin.f64 phi1))))
(*.f64 (fabs.f64 (neg.f64 (sin.f64 phi1))) (fabs.f64 (neg.f64 (sin.f64 phi1))))
(*.f64 (fabs.f64 (sin.f64 phi1)) (fabs.f64 (sin.f64 phi1)))
(*.f64 (exp.f64 (log.f64 (sin.f64 phi1))) (exp.f64 (log.f64 (sin.f64 phi1))))
(*.f64 (neg.f64 (sin.f64 phi1)) (neg.f64 (sin.f64 phi1)))
(*.f64 (sin.f64 phi1) (sin.f64 phi1))
(pow.f64 (exp.f64 (log.f64 (sin.f64 phi1))) #s(literal 2 binary64))
(pow.f64 (neg.f64 (sin.f64 phi1)) #s(literal 2 binary64))
(pow.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1 binary64))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) (sin.f64 (+.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (sin.f64 (+.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (neg.f64 phi1) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) (sin.f64 (+.f64 (neg.f64 phi1) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (PI.f64) phi1) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) (sin.f64 (+.f64 (+.f64 (PI.f64) phi1) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 phi1))) (cos.f64 (+.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 (PI.f64) phi1))) (cos.f64 (+.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 (PI.f64) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (neg.f64 phi1) (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (neg.f64 phi1) (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (PI.f64) phi1) (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (+.f64 (PI.f64) phi1) (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) (cos.f64 (-.f64 (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (cos.f64 (-.f64 (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) (cos.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (-.f64 (.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(/.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 #s(literal -1/2 binary64) (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1)))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (+.f64 (pow.f64 (.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))))))))
(/.f64 (neg.f64 (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (neg.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64))) (neg.f64 (fma.f64 (.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64)) (-.f64 (.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) (cos.f64 (+.f64 (neg.f64 phi1) (+.f64 (PI.f64) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (PI.f64) phi1) (neg.f64 phi1))) (cos.f64 (+.f64 (+.f64 (PI.f64) phi1) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 phi1)) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))
(/.f64 (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(/.f64 (fma.f64 (pow.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (+.f64 (pow.f64 (.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1)))))))
(/.f64 (fma.f64 (pow.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (fma.f64 (.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64)) (-.f64 (.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))
(neg.f64 (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi1)))
(neg.f64 (*.f64 (sin.f64 phi1) (neg.f64 (sin.f64 phi1))))
(fma.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal 1/2 binary64) (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64))
(-.f64 (/.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (/.f64 (pow.f64 (*.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (neg.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1)))) #s(literal 1/2 binary64)))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1)))))
(exp.f64 (*.f64 (log.f64 (exp.f64 (log.f64 (sin.f64 phi1)))) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (neg.f64 (sin.f64 phi1))) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1 binary64)))
(exp.f64 (log.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(+.f64 (/.f64 #s(literal 1/8 binary64) (fma.f64 (.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64)) (-.f64 (.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (/.f64 (.f64 (pow.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (fma.f64 (.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64)) (-.f64 (*.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(+.f64 (cosh.f64 (log.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (sinh.f64 (log.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 (*.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64)))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64))
(-.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 theta delta)) #s(literal 2 binary64)))
#s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))
(*.f64 theta (sin.f64 delta))
(*.f64 (sin.f64 delta) theta)
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(*.f64 (+.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 phi1)) (-.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 phi1)))
(/.f64 (-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) #s(literal 1 binary64))
(/.f64 (-.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 6 binary64))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1)))
(fma.f64 (sin.f64 (.f64 #s(literal -2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) #s(literal 0 binary64) (.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1 binary64)))
(fma.f64 (+.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi1)))
(fma.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) (neg.f64 (neg.f64 (sin.f64 phi1))) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi1)))
(fma.f64 (fabs.f64 (neg.f64 (sin.f64 phi1))) (fabs.f64 (neg.f64 (sin.f64 phi1))) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi1)))
(fma.f64 (fabs.f64 (sin.f64 phi1)) (fabs.f64 (sin.f64 phi1)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi1)))
(fma.f64 (exp.f64 (log.f64 (sin.f64 phi1))) (exp.f64 (log.f64 (sin.f64 phi1))) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi1)))
(fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 (neg.f64 phi1) #s(literal 2 binary64))) (.f64 #s(literal 0 binary64) (sin.f64 (*.f64 (neg.f64 phi1) #s(literal 2 binary64)))))
(fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) phi1)) (.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal -2 binary64) phi1))))
(fma.f64 #s(literal 0 binary64) (cos.f64 (fma.f64 #s(literal 2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))
(fma.f64 (sin.f64 (.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) #s(literal 2 binary64))) #s(literal 0 binary64) (.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) (.f64 #s(literal 0 binary64) (sin.f64 (.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) #s(literal 2 binary64)))))
(fma.f64 (neg.f64 (sin.f64 phi1)) (neg.f64 (sin.f64 phi1)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi1)))
(fma.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(fma.f64 #s(literal 1/2 binary64) (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) (-.f64 #s(literal 1/2 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(fma.f64 (cos.f64 phi1) (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(fma.f64 (sin.f64 phi1) (sin.f64 phi1) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi1)))
(sin.f64 (+.f64 (-.f64 (neg.f64 phi1) (+.f64 (PI.f64) phi1)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (neg.f64 (*.f64 #s(literal -2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (-.f64 (neg.f64 phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))
(sin.f64 (+.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))
(sin.f64 (fma.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) #s(literal 2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (cos.f64 (.f64 #s(literal 1 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) (.f64 (sin.f64 (.f64 #s(literal 1 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (sin.f64 (.f64 #s(literal 1 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))
(-.f64 (.f64 (cos.f64 (.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) #s(literal 1 binary64))) (cos.f64 (.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) #s(literal 1 binary64)))) (.f64 (sin.f64 (.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) #s(literal 1 binary64))) (sin.f64 (.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) #s(literal 1 binary64)))))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1 binary64)) (.f64 (sin.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 0 binary64)))
(-.f64 (.f64 #s(literal 0 binary64) (cos.f64 (+.f64 phi1 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) (.f64 #s(literal 1 binary64) (sin.f64 (+.f64 phi1 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))
(-.f64 (.f64 (cos.f64 phi1) (cos.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))
(-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi1)) (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi1)))
(-.f64 (.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))) (.f64 (sin.f64 (neg.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sin.f64 (neg.f64 (*.f64 #s(literal 2 binary64) phi1)))))
(-.f64 (.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))) (.f64 #s(literal 0 binary64) (sin.f64 (.f64 #s(literal 2 binary64) phi1))))
(-.f64 (.f64 (sin.f64 (.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) #s(literal 2 binary64))) #s(literal 0 binary64)) (*.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1)) #s(literal 1 binary64)))
(-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(-.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(cos.f64 (neg.f64 (-.f64 (neg.f64 phi1) (+.f64 (PI.f64) phi1))))
(cos.f64 (neg.f64 (neg.f64 (*.f64 #s(literal -2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))
(cos.f64 (neg.f64 (*.f64 #s(literal -2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))
(cos.f64 (-.f64 (neg.f64 phi1) (+.f64 (PI.f64) phi1)))
(cos.f64 (*.f64 #s(literal -2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))
(cos.f64 (*.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) #s(literal 2 binary64)))
(+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (.f64 (neg.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal 0 binary64) (sin.f64 (.f64 (neg.f64 phi1) #s(literal 2 binary64)))))
(+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) phi1))) (.f64 #s(literal 0 binary64) (sin.f64 (.f64 #s(literal -2 binary64) phi1))))
(+.f64 (*.f64 (cos.f64 phi1) (neg.f64 (cos.f64 phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal -2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) #s(literal 0 binary64)) (*.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 0 binary64) (cos.f64 (fma.f64 #s(literal 2 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 #s(literal -1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))
(+.f64 (.f64 #s(literal 1 binary64) (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1)))) (.f64 #s(literal 0 binary64) (sin.f64 (*.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) #s(literal 2 binary64))) #s(literal 0 binary64)) (*.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1 binary64)))
(+.f64 (*.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) #s(literal 1/2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi1)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64)))) (neg.f64 (+.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64))) (+.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 3 binary64))) (fma.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta))) (/.f64 (pow.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64)) (+.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (/.f64 (pow.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 3 binary64)) (fma.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
(-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (.f64 (cos.f64 theta) (sin.f64 delta))) (neg.f64 (sin.f64 phi1))) #s(literal 2 binary64))) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (.f64 (cos.f64 theta) (sin.f64 delta))) (neg.f64 (sin.f64 phi1))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (neg.f64 (-.f64 (.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (neg.f64 (sin.f64 phi1))) (cos.f64 delta))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (.f64 (cos.f64 theta) (sin.f64 delta))) (neg.f64 (sin.f64 phi1))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (cos.f64 delta) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (.f64 (cos.f64 theta) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)))) (pow.f64 (.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (neg.f64 (sin.f64 phi1))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (.f64 (cos.f64 theta) (sin.f64 delta))) (neg.f64 (sin.f64 phi1))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (-.f64 (.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (neg.f64 (sin.f64 phi1))) (cos.f64 delta)))
(/.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (.f64 (cos.f64 theta) (sin.f64 delta))) (neg.f64 (sin.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (-.f64 (pow.f64 (.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (.f64 (cos.f64 theta) (sin.f64 delta))) (neg.f64 (sin.f64 phi1))) #s(literal 2 binary64)) (.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))))
(/.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (.f64 (cos.f64 theta) (sin.f64 delta))) (neg.f64 (sin.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (.f64 (cos.f64 theta) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)))) (pow.f64 (.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (neg.f64 (sin.f64 phi1))) #s(literal 2 binary64))))
(fma.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 delta))
(fma.f64 (sin.f64 phi1) (neg.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))) (cos.f64 delta))
(-.f64 (/.f64 (pow.f64 (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (.f64 (cos.f64 theta) (sin.f64 delta))) (neg.f64 (sin.f64 phi1))) #s(literal 2 binary64)) (-.f64 (.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (.f64 (cos.f64 theta) (sin.f64 delta))) (neg.f64 (sin.f64 phi1))) (cos.f64 delta))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (-.f64 (.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (neg.f64 (sin.f64 phi1))) (cos.f64 delta))))
(-.f64 (cos.f64 delta) (.f64 (neg.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))) (neg.f64 (sin.f64 phi1))))
(-.f64 (cos.f64 delta) (.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
(-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (sin.f64 phi1)))
(+.f64 (/.f64 (pow.f64 (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (.f64 (cos.f64 theta) (sin.f64 delta))) (neg.f64 (sin.f64 phi1))) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (.f64 (cos.f64 theta) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)))) (pow.f64 (.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (.f64 (cos.f64 theta) (sin.f64 delta))) (neg.f64 (sin.f64 phi1))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (.f64 (cos.f64 theta) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)))) (pow.f64 (.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (neg.f64 (sin.f64 phi1))) #s(literal 2 binary64)))))
(+.f64 (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (neg.f64 (sin.f64 phi1))) (cos.f64 delta))
(+.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (neg.f64 (sin.f64 phi1))))
#s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (*.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))) #s(literal 2 binary64)))) (neg.f64 (+.f64 #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (*.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))) (cos.f64 delta))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))) (+.f64 #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (*.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))) #s(literal 2 binary64))) (+.f64 #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (*.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))) (cos.f64 delta)))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))) #s(literal 3 binary64))) (fma.f64 #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))) (+.f64 #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (*.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))) (cos.f64 delta))) (/.f64 (pow.f64 #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))) #s(literal 2 binary64)) (+.f64 #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (*.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))) (cos.f64 delta))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))) (+.f64 #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (/.f64 (pow.f64 #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))) #s(literal 3 binary64)) (fma.f64 #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))) (+.f64 #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (*.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
(-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (*.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))
(*.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))
(*.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 delta phi1) phi1)) (cos.f64 (+.f64 (+.f64 delta phi1) phi1))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 delta phi1))) (cos.f64 (+.f64 phi1 (+.f64 delta phi1)))) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 delta phi1))) (sin.f64 phi1)) (sin.f64 (-.f64 delta phi1)))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64))) (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 (-.f64 phi1 delta)) (pow.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) #s(literal 2 binary64))))
(/.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 delta phi1)))) (sin.f64 (-.f64 delta phi1)))
(/.f64 (.f64 (sin.f64 phi1) (+.f64 (pow.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)))) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 (-.f64 phi1 delta)) (pow.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) #s(literal 2 binary64))))
(fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 phi1)))
(fma.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 phi1) (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(fma.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)) (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(fma.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 phi1)))
(fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 phi1)))
(fma.f64 (sin.f64 phi1) (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 phi1)))
(fma.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(+.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 phi1)) (*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(+.f64 (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 phi1)))

eval110.0ms (0.8%)

Memory: -3.0MiB live, 136.4MiB allocated; 20ms collecting garbage
Compiler: Compiled 33 160 to 3 495 computations (89.5% saved)

prune109.0ms (0.8%)

Memory

5.3MiB live, 144.4MiB allocated; 9ms collecting garbage

Pruning

48 alts after pruning (43 fresh and 5 done)

	Pruned	Kept	Total
New	547	20	567
Fresh	7	23	30
Picked	3	2	5
Done	0	3	3
Total	557	48	605

Accuracy

100.0%

Counts

605 → 48

Alt Table

Click to see full alt table

Status	Accuracy	Program
	42.4%	(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) lambda1) (*.f64 lambda1 lambda1)))
	99.9%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
	82.8%	(+.f64 lambda1 (atan2.f64 (/.f64 (.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (sin.f64 theta)) #s(literal 2 binary64)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
	92.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (/.f64 (pow.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 3 binary64)) (fma.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
	91.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))))))
	87.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) (cos.f64 (+.f64 (neg.f64 phi1) (+.f64 (PI.f64) phi1)))) #s(literal 2 binary64))))))
	87.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (PI.f64) phi1) (neg.f64 phi1))) (cos.f64 (+.f64 (+.f64 (PI.f64) phi1) (neg.f64 phi1)))) #s(literal 2 binary64))))))
	88.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (sin.f64 (+.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))))))
	88.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1)))) #s(literal 2 binary64))))))
	92.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))))))
	91.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))) (.f64 (sin.f64 (neg.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sin.f64 (neg.f64 (.f64 #s(literal 2 binary64) phi1)))))))))))
	87.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (-.f64 (neg.f64 phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
	87.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
	87.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (+ (/ (PI) 2) phi1)) (*.f64 (-.f64 (/.f64 (PI.f64) phi1) #s(literal -2 binary64)) phi1)))))))))
	48.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (exp.f64 (.f64 (.f64 (log.f64 (sin.f64 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)))))))
	81.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(approx (pow (sin phi1) 2) (*.f64 phi1 phi1))))))
	79.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))))
✓	88.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
✓	93.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))
	91.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (*.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))))
	83.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) (*.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) delta (sin.f64 phi1))))))))
	75.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
	76.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	73.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
	78.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))))))
✓	76.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
	66.1%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (fma.f64 (.f64 theta (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta) (.f64 #s(literal -1/6 binary64) theta)) (.f64 delta delta) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
	67.0%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (.f64 (.f64 delta delta) theta) #s(literal -1/6 binary64) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
	67.6%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 theta delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
	76.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) theta) (sin.f64 delta))) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
	72.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
	84.6%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
	99.5%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (fma.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1 lambda1))
	32.2%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))))
	32.3%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
	32.3%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 (fma.f64 #s(literal -1/2 binary64) (PI.f64) (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) (cos.f64 delta))))
	25.3%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (sin.f64 phi1) (neg.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta)))) (cos.f64 delta))))
	18.9%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) delta (sin.f64 phi1))) (cos.f64 delta))))
✓	26.4%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
	15.9%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (fma.f64 (fma.f64 (.f64 (sin.f64 theta) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) (.f64 phi1 phi1) (.f64 #s(literal -1/2 binary64) (sin.f64 theta))) (.f64 phi1 phi1) (sin.f64 theta))) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))))
	15.5%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (cos.f64 phi1)) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
	15.2%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (cos.f64 phi1)) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
	15.5%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (cos.f64 phi1) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
	15.5%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (cos.f64 phi1) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
	19.0%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
	18.8%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
	18.9%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))))
✓	68.8%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

Compiler

Compiled 7 820 to 2 310 computations (70.5% saved)

regimes187.0ms (1.4%)

Memory

30.3MiB live, 175.7MiB allocated; 6ms collecting garbage

Counts

86 → 1

Calls

Call 1

Inputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 theta delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (.f64 (.f64 delta delta) theta) #s(literal -1/6 binary64) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (fma.f64 (.f64 theta (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta) (.f64 #s(literal -1/6 binary64) theta)) (.f64 delta delta) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (sin.f64 theta)) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(approx (pow (sin phi1) 2) (*.f64 phi1 phi1))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) theta) (sin.f64 delta))) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (* (* phi1 (sin delta)) (cos theta)) (*.f64 (sin.f64 delta) phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (* (* phi1 (sin delta)) (cos theta)) (.f64 (.f64 (cos.f64 theta) phi1) delta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)) (sin.f64 theta)) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (+ (/ (PI) 2) phi1)) (*.f64 (-.f64 (/.f64 (PI.f64) phi1) #s(literal -2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (-.f64 (neg.f64 phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))))
(+.f64 lambda1 (atan2.f64 (/.f64 (.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (sin.f64 theta)) #s(literal 2 binary64)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 phi1)) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (sin.f64 phi1) (neg.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta)))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (*.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) (cos.f64 (+.f64 (neg.f64 phi1) (+.f64 (PI.f64) phi1)))) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (PI.f64) phi1) (neg.f64 phi1))) (cos.f64 (+.f64 (+.f64 (PI.f64) phi1) (neg.f64 phi1)))) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1)))) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (+.f64 (sin.f64 (-.f64 (neg.f64 phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (sin.f64 (+.f64 (neg.f64 phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (sin.f64 (+.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (exp.f64 (.f64 (.f64 (log.f64 (sin.f64 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) (*.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) delta (sin.f64 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))) (.f64 (sin.f64 (neg.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sin.f64 (neg.f64 (.f64 #s(literal 2 binary64) phi1)))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (cos.f64 phi1) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 delta (cos.f64 phi1)) (cos.f64 theta) (sin.f64 phi1))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 delta (cos.f64 theta)) (cos.f64 phi1) (sin.f64 phi1))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) delta (sin.f64 phi1))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (neg.f64 delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi1))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (cos.f64 phi1)) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (fma.f64 (fma.f64 (.f64 (sin.f64 theta) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) (.f64 phi1 phi1) (.f64 #s(literal -1/2 binary64) (sin.f64 theta))) (.f64 phi1 phi1) (sin.f64 theta))) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 #s(approx (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (cos.f64 phi1) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (cos.f64 phi1)) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (fma.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) lambda1) lambda1 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (fma.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (acos (neg (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (/ (PI) 2))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 (fma.f64 #s(literal -1/2 binary64) (PI.f64) (acos.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (acos.f64 (neg.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))) lambda1) (*.f64 lambda1 lambda1)))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (/.f64 (pow.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 3 binary64)) (fma.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) lambda1) (*.f64 lambda1 lambda1)))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (/.f64 (pow.f64 (acos.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) #s(literal 2 binary64)) (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))) (/.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (asin.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1) (.f64 lambda1 lambda1)))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta))) (.f64 (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64)))) (.f64 (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta))))))

Outputs

(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (fma.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))))

Calls

7 calls:

52.0ms	delta
28.0ms	phi1
21.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
20.0ms	phi2
20.0ms	theta

Results

Accuracy	Segments	Branch
99.9%	1	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
99.9%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
99.9%	1	`lambda1`
99.9%	1	`phi1`
99.9%	1	`phi2`
99.9%	1	`delta`
99.9%	1	`theta`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes186.0ms (1.4%)

Memory

13.5MiB live, 192.5MiB allocated; 31ms collecting garbage

Counts

74 → 1

Calls

Call 1

Inputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 theta delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (.f64 (.f64 delta delta) theta) #s(literal -1/6 binary64) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (fma.f64 (.f64 theta (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta) (.f64 #s(literal -1/6 binary64) theta)) (.f64 delta delta) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (sin.f64 theta)) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(approx (pow (sin phi1) 2) (*.f64 phi1 phi1))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) theta) (sin.f64 delta))) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (* (* phi1 (sin delta)) (cos theta)) (*.f64 (sin.f64 delta) phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (* (* phi1 (sin delta)) (cos theta)) (.f64 (.f64 (cos.f64 theta) phi1) delta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)) (sin.f64 theta)) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (+ (/ (PI) 2) phi1)) (*.f64 (-.f64 (/.f64 (PI.f64) phi1) #s(literal -2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (-.f64 (neg.f64 phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))))
(+.f64 lambda1 (atan2.f64 (/.f64 (.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (sin.f64 theta)) #s(literal 2 binary64)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 phi1)) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (sin.f64 phi1) (neg.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta)))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (*.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) (cos.f64 (+.f64 (neg.f64 phi1) (+.f64 (PI.f64) phi1)))) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (PI.f64) phi1) (neg.f64 phi1))) (cos.f64 (+.f64 (+.f64 (PI.f64) phi1) (neg.f64 phi1)))) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1)))) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (+.f64 (sin.f64 (-.f64 (neg.f64 phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (sin.f64 (+.f64 (neg.f64 phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (sin.f64 (+.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (exp.f64 (.f64 (.f64 (log.f64 (sin.f64 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) (*.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) delta (sin.f64 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))) (.f64 (sin.f64 (neg.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sin.f64 (neg.f64 (.f64 #s(literal 2 binary64) phi1)))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (cos.f64 phi1) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 delta (cos.f64 phi1)) (cos.f64 theta) (sin.f64 phi1))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 delta (cos.f64 theta)) (cos.f64 phi1) (sin.f64 phi1))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) delta (sin.f64 phi1))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (neg.f64 delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi1))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (cos.f64 phi1)) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (fma.f64 (fma.f64 (.f64 (sin.f64 theta) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) (.f64 phi1 phi1) (.f64 #s(literal -1/2 binary64) (sin.f64 theta))) (.f64 phi1 phi1) (sin.f64 theta))) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 #s(approx (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (cos.f64 phi1) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (cos.f64 phi1)) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (fma.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) lambda1) lambda1 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (fma.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))))))

Outputs

(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))))))

Calls

7 calls:

52.0ms	theta
28.0ms	phi2
27.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
23.0ms	lambda1
18.0ms	delta

Results

Accuracy	Segments	Branch
99.9%	1	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
99.9%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
99.9%	1	`lambda1`
99.9%	1	`phi1`
99.9%	1	`phi2`
99.9%	1	`delta`
99.9%	1	`theta`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes166.0ms (1.2%)

Memory

-7.8MiB live, 144.6MiB allocated; 36ms collecting garbage

Counts

73 → 1

Calls

Call 1

Inputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 theta delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (.f64 (.f64 delta delta) theta) #s(literal -1/6 binary64) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (fma.f64 (.f64 theta (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta) (.f64 #s(literal -1/6 binary64) theta)) (.f64 delta delta) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (sin.f64 theta)) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(approx (pow (sin phi1) 2) (*.f64 phi1 phi1))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) theta) (sin.f64 delta))) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (* (* phi1 (sin delta)) (cos theta)) (*.f64 (sin.f64 delta) phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (* (* phi1 (sin delta)) (cos theta)) (.f64 (.f64 (cos.f64 theta) phi1) delta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)) (sin.f64 theta)) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (+ (/ (PI) 2) phi1)) (*.f64 (-.f64 (/.f64 (PI.f64) phi1) #s(literal -2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (-.f64 (neg.f64 phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))))
(+.f64 lambda1 (atan2.f64 (/.f64 (.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (sin.f64 theta)) #s(literal 2 binary64)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 phi1)) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (sin.f64 phi1) (neg.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta)))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (*.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) (cos.f64 (+.f64 (neg.f64 phi1) (+.f64 (PI.f64) phi1)))) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (PI.f64) phi1) (neg.f64 phi1))) (cos.f64 (+.f64 (+.f64 (PI.f64) phi1) (neg.f64 phi1)))) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1)))) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (+.f64 (sin.f64 (-.f64 (neg.f64 phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (sin.f64 (+.f64 (neg.f64 phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (sin.f64 (+.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (exp.f64 (.f64 (.f64 (log.f64 (sin.f64 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) (*.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) delta (sin.f64 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))) (.f64 (sin.f64 (neg.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sin.f64 (neg.f64 (.f64 #s(literal 2 binary64) phi1)))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (cos.f64 phi1) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 delta (cos.f64 phi1)) (cos.f64 theta) (sin.f64 phi1))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 delta (cos.f64 theta)) (cos.f64 phi1) (sin.f64 phi1))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) delta (sin.f64 phi1))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (neg.f64 delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi1))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (cos.f64 phi1)) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (fma.f64 (fma.f64 (.f64 (sin.f64 theta) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) (.f64 phi1 phi1) (.f64 #s(literal -1/2 binary64) (sin.f64 theta))) (.f64 phi1 phi1) (sin.f64 theta))) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 #s(approx (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (cos.f64 phi1) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (cos.f64 phi1)) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (fma.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) lambda1) lambda1 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (fma.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))))

Outputs

(+.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (fma.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)

Calls

7 calls:

35.0ms	phi1
35.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
22.0ms	theta
17.0ms	phi2
17.0ms	delta

Results

Accuracy	Segments	Branch
99.9%	1	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
99.9%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
99.9%	1	`lambda1`
99.9%	1	`phi1`
99.9%	1	`phi2`
99.9%	1	`delta`
99.9%	1	`theta`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes174.0ms (1.3%)

Memory

-6.4MiB live, 184.9MiB allocated; 25ms collecting garbage

Counts

69 → 1

Calls

Call 1

Inputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 theta delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (.f64 (.f64 delta delta) theta) #s(literal -1/6 binary64) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (fma.f64 (.f64 theta (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta) (.f64 #s(literal -1/6 binary64) theta)) (.f64 delta delta) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (sin.f64 theta)) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(approx (pow (sin phi1) 2) (*.f64 phi1 phi1))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) theta) (sin.f64 delta))) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (* (* phi1 (sin delta)) (cos theta)) (*.f64 (sin.f64 delta) phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (* (* phi1 (sin delta)) (cos theta)) (.f64 (.f64 (cos.f64 theta) phi1) delta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)) (sin.f64 theta)) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (+ (/ (PI) 2) phi1)) (*.f64 (-.f64 (/.f64 (PI.f64) phi1) #s(literal -2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (-.f64 (neg.f64 phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))))
(+.f64 lambda1 (atan2.f64 (/.f64 (.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (sin.f64 theta)) #s(literal 2 binary64)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 phi1)) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (sin.f64 phi1) (neg.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta)))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (*.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) (cos.f64 (+.f64 (neg.f64 phi1) (+.f64 (PI.f64) phi1)))) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (PI.f64) phi1) (neg.f64 phi1))) (cos.f64 (+.f64 (+.f64 (PI.f64) phi1) (neg.f64 phi1)))) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1)))) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (+.f64 (sin.f64 (-.f64 (neg.f64 phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (sin.f64 (+.f64 (neg.f64 phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (sin.f64 (+.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (exp.f64 (.f64 (.f64 (log.f64 (sin.f64 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) (*.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) delta (sin.f64 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))) (.f64 (sin.f64 (neg.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sin.f64 (neg.f64 (.f64 #s(literal 2 binary64) phi1)))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (cos.f64 phi1) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 delta (cos.f64 phi1)) (cos.f64 theta) (sin.f64 phi1))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 delta (cos.f64 theta)) (cos.f64 phi1) (sin.f64 phi1))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) delta (sin.f64 phi1))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (neg.f64 delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi1))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (cos.f64 phi1)) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (fma.f64 (fma.f64 (.f64 (sin.f64 theta) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) (.f64 phi1 phi1) (.f64 #s(literal -1/2 binary64) (sin.f64 theta))) (.f64 phi1 phi1) (sin.f64 theta))) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 #s(approx (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (cos.f64 phi1) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (cos.f64 phi1)) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))))))

Outputs

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

Calls

7 calls:

45.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
33.0ms	theta
24.0ms	phi2
21.0ms	phi1
17.0ms	delta

Results

Accuracy	Segments	Branch
93.5%	1	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
93.5%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
93.5%	1	`lambda1`
93.5%	1	`phi1`
93.5%	1	`phi2`
93.5%	1	`delta`
93.5%	1	`theta`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes162.0ms (1.2%)

Memory

-9.4MiB live, 180.7MiB allocated; 18ms collecting garbage

Counts

68 → 1

Calls

Call 1

Inputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 theta delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (.f64 (.f64 delta delta) theta) #s(literal -1/6 binary64) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (fma.f64 (.f64 theta (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta) (.f64 #s(literal -1/6 binary64) theta)) (.f64 delta delta) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (sin.f64 theta)) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(approx (pow (sin phi1) 2) (*.f64 phi1 phi1))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) theta) (sin.f64 delta))) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (* (* phi1 (sin delta)) (cos theta)) (*.f64 (sin.f64 delta) phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (* (* phi1 (sin delta)) (cos theta)) (.f64 (.f64 (cos.f64 theta) phi1) delta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)) (sin.f64 theta)) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (+ (/ (PI) 2) phi1)) (*.f64 (-.f64 (/.f64 (PI.f64) phi1) #s(literal -2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (-.f64 (neg.f64 phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))))
(+.f64 lambda1 (atan2.f64 (/.f64 (.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (sin.f64 theta)) #s(literal 2 binary64)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 phi1)) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (sin.f64 phi1) (neg.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta)))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (*.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) (cos.f64 (+.f64 (neg.f64 phi1) (+.f64 (PI.f64) phi1)))) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (PI.f64) phi1) (neg.f64 phi1))) (cos.f64 (+.f64 (+.f64 (PI.f64) phi1) (neg.f64 phi1)))) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1)))) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (+.f64 (sin.f64 (-.f64 (neg.f64 phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (sin.f64 (+.f64 (neg.f64 phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (sin.f64 (+.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (exp.f64 (.f64 (.f64 (log.f64 (sin.f64 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) (*.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) delta (sin.f64 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))) (.f64 (sin.f64 (neg.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sin.f64 (neg.f64 (.f64 #s(literal 2 binary64) phi1)))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (cos.f64 phi1) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 delta (cos.f64 phi1)) (cos.f64 theta) (sin.f64 phi1))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 delta (cos.f64 theta)) (cos.f64 phi1) (sin.f64 phi1))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) delta (sin.f64 phi1))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (neg.f64 delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi1))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (cos.f64 phi1)) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (fma.f64 (fma.f64 (.f64 (sin.f64 theta) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) (.f64 phi1 phi1) (.f64 #s(literal -1/2 binary64) (sin.f64 theta))) (.f64 phi1 phi1) (sin.f64 theta))) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 #s(approx (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (cos.f64 phi1) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (cos.f64 phi1)) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))

Outputs

(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (*.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))

Calls

7 calls:

46.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
24.0ms	phi2
22.0ms	delta
18.0ms	lambda1
16.0ms	theta

Results

Accuracy	Segments	Branch
93.5%	1	`lambda1`
93.5%	1	`phi1`
93.5%	1	`phi2`
93.5%	1	`delta`
93.5%	1	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
93.5%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
93.5%	1	`theta`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes174.0ms (1.3%)

Memory

27.6MiB live, 169.2MiB allocated; 15ms collecting garbage

Counts

58 → 1

Calls

Call 1

Inputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 theta delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (.f64 (.f64 delta delta) theta) #s(literal -1/6 binary64) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (fma.f64 (.f64 theta (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta) (.f64 #s(literal -1/6 binary64) theta)) (.f64 delta delta) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (sin.f64 theta)) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(approx (pow (sin phi1) 2) (*.f64 phi1 phi1))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) theta) (sin.f64 delta))) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (* (* phi1 (sin delta)) (cos theta)) (*.f64 (sin.f64 delta) phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (* (* phi1 (sin delta)) (cos theta)) (.f64 (.f64 (cos.f64 theta) phi1) delta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)) (sin.f64 theta)) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (+ (/ (PI) 2) phi1)) (*.f64 (-.f64 (/.f64 (PI.f64) phi1) #s(literal -2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (-.f64 (neg.f64 phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))))
(+.f64 lambda1 (atan2.f64 (/.f64 (.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (sin.f64 theta)) #s(literal 2 binary64)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 phi1)) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (sin.f64 phi1) (neg.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta)))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (*.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) (cos.f64 (+.f64 (neg.f64 phi1) (+.f64 (PI.f64) phi1)))) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (PI.f64) phi1) (neg.f64 phi1))) (cos.f64 (+.f64 (+.f64 (PI.f64) phi1) (neg.f64 phi1)))) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1)))) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (+.f64 (sin.f64 (-.f64 (neg.f64 phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (sin.f64 (+.f64 (neg.f64 phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (sin.f64 (+.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (exp.f64 (.f64 (.f64 (log.f64 (sin.f64 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) (*.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) delta (sin.f64 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))) (.f64 (sin.f64 (neg.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sin.f64 (neg.f64 (.f64 #s(literal 2 binary64) phi1)))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (cos.f64 phi1) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 delta (cos.f64 phi1)) (cos.f64 theta) (sin.f64 phi1))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 delta (cos.f64 theta)) (cos.f64 phi1) (sin.f64 phi1))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) delta (sin.f64 phi1))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (neg.f64 delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi1))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (cos.f64 phi1)) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (fma.f64 (fma.f64 (.f64 (sin.f64 theta) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) (.f64 phi1 phi1) (.f64 #s(literal -1/2 binary64) (sin.f64 theta))) (.f64 phi1 phi1) (sin.f64 theta))) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 #s(approx (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))

Outputs

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

Calls

7 calls:

45.0ms	delta
42.0ms	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))
27.0ms	phi2
14.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
14.0ms	theta

Results

Accuracy	Segments	Branch
93.5%	1	`phi1`
93.5%	1	`delta`
93.5%	1	`lambda1`
93.5%	1	`phi2`
93.5%	1	`theta`
93.5%	1	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
93.5%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes149.0ms (1.1%)

Memory

-42.8MiB live, 201.3MiB allocated; 20ms collecting garbage

Counts

57 → 1

Calls

Call 1

Inputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 theta delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (.f64 (.f64 delta delta) theta) #s(literal -1/6 binary64) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (fma.f64 (.f64 theta (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta) (.f64 #s(literal -1/6 binary64) theta)) (.f64 delta delta) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (sin.f64 theta)) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(approx (pow (sin phi1) 2) (*.f64 phi1 phi1))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) theta) (sin.f64 delta))) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (* (* phi1 (sin delta)) (cos theta)) (*.f64 (sin.f64 delta) phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (* (* phi1 (sin delta)) (cos theta)) (.f64 (.f64 (cos.f64 theta) phi1) delta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)) (sin.f64 theta)) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (+ (/ (PI) 2) phi1)) (*.f64 (-.f64 (/.f64 (PI.f64) phi1) #s(literal -2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (-.f64 (neg.f64 phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))))
(+.f64 lambda1 (atan2.f64 (/.f64 (.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (sin.f64 theta)) #s(literal 2 binary64)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 phi1)) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (sin.f64 phi1) (neg.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta)))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (*.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1))) (cos.f64 (+.f64 (neg.f64 phi1) (+.f64 (PI.f64) phi1)))) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (PI.f64) phi1) (neg.f64 phi1))) (cos.f64 (+.f64 (+.f64 (PI.f64) phi1) (neg.f64 phi1)))) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (neg.f64 (cos.f64 (-.f64 (neg.f64 phi1) phi1)))) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (+.f64 (sin.f64 (-.f64 (neg.f64 phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (sin.f64 (+.f64 (neg.f64 phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) (sin.f64 (+.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))) #s(literal 2 binary64))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (exp.f64 (.f64 (.f64 (log.f64 (sin.f64 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(approx (* (+ (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta))) (sin phi1)) (*.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) delta (sin.f64 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))) (.f64 (sin.f64 (neg.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sin.f64 (neg.f64 (.f64 #s(literal 2 binary64) phi1)))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (cos.f64 phi1) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 delta (cos.f64 phi1)) (cos.f64 theta) (sin.f64 phi1))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 delta (cos.f64 theta)) (cos.f64 phi1) (sin.f64 phi1))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) delta (sin.f64 phi1))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (neg.f64 delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi1))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (cos.f64 phi1)) theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (fma.f64 (fma.f64 (.f64 (sin.f64 theta) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) (.f64 phi1 phi1) (.f64 #s(literal -1/2 binary64) (sin.f64 theta))) (.f64 phi1 phi1) (sin.f64 theta))) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 #s(approx (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin theta)) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))))

Outputs

(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))

Calls

7 calls:

30.0ms	theta
23.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
21.0ms	phi1
21.0ms	phi2
14.0ms	delta

Results

Accuracy	Segments	Branch
92.0%	1	`lambda1`
92.0%	1	`phi1`
92.0%	1	`phi2`
92.0%	1	`delta`
92.0%	1	`theta`
92.0%	1	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
92.0%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes56.0ms (0.4%)

Memory

28.8MiB live, 75.3MiB allocated; 2ms collecting garbage

Counts

28 → 1

Calls

Call 1

Inputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 theta delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (.f64 (.f64 delta delta) theta) #s(literal -1/6 binary64) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (fma.f64 (.f64 theta (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta) (.f64 #s(literal -1/6 binary64) theta)) (.f64 delta delta) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (sin.f64 theta)) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(approx (pow (sin phi1) 2) (*.f64 phi1 phi1))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) theta) (sin.f64 delta))) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (* (* phi1 (sin delta)) (cos theta)) (*.f64 (sin.f64 delta) phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (* (* phi1 (sin delta)) (cos theta)) (.f64 (.f64 (cos.f64 theta) phi1) delta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)) (sin.f64 theta)) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (+ (/ (PI) 2) phi1)) (*.f64 (-.f64 (/.f64 (PI.f64) phi1) #s(literal -2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (-.f64 (neg.f64 phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (+.f64 (PI.f64) phi1) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))))
(+.f64 lambda1 (atan2.f64 (/.f64 (.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (sin.f64 theta)) #s(literal 2 binary64)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))

Outputs

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

Calls

7 calls:

12.0ms	phi1
7.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
7.0ms	phi2
7.0ms	delta
7.0ms	theta

Results

Accuracy	Segments	Branch
92.0%	1	`lambda1`
92.0%	1	`phi2`
92.0%	1	`phi1`
92.0%	1	`delta`
92.0%	1	`theta`
92.0%	1	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
92.0%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes64.0ms (0.5%)

Memory

15.8MiB live, 62.8MiB allocated; 1ms collecting garbage

Counts

20 → 3

Calls

Call 1

Inputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 theta delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (.f64 (.f64 delta delta) theta) #s(literal -1/6 binary64) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (fma.f64 (.f64 theta (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta) (.f64 #s(literal -1/6 binary64) theta)) (.f64 delta delta) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (sin.f64 theta)) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(approx (pow (sin phi1) 2) (*.f64 phi1 phi1))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) theta) (sin.f64 delta))) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (* (* phi1 (sin delta)) (cos theta)) (*.f64 (sin.f64 delta) phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (* (* phi1 (sin delta)) (cos theta)) (.f64 (.f64 (cos.f64 theta) phi1) delta))))))

Outputs

(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))

(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))))

(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))

Calls

7 calls:

30.0ms	theta
5.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
5.0ms	delta
5.0ms	phi2
5.0ms	phi1

Results

Accuracy	Segments	Branch
88.3%	1	`phi2`
88.3%	1	`lambda1`
88.3%	1	`phi1`
91.9%	3	`delta`
88.3%	1	`theta`
91.5%	3	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
88.3%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes7.0ms (0.1%)

Memory

-39.2MiB live, 10.5MiB allocated; 2ms collecting garbage

Counts

15 → 3

Calls

Call 1

Inputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 theta delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (.f64 (.f64 delta delta) theta) #s(literal -1/6 binary64) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (fma.f64 (.f64 theta (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta) (.f64 #s(literal -1/6 binary64) theta)) (.f64 delta delta) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (sin.f64 theta)) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(approx (pow (sin phi1) 2) (*.f64 phi1 phi1))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) theta) (sin.f64 delta))) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))

Outputs

(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))

(+.f64 lambda1 (atan2.f64 (*.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))

(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))

Calls

1 calls:

6.0ms

delta

Results

Accuracy	Segments	Branch
91.9%	3	`delta`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes13.0ms (0.1%)

Memory

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

Counts

14 → 1

Calls

Call 1

Inputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 theta delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (.f64 (.f64 delta delta) theta) #s(literal -1/6 binary64) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (fma.f64 (.f64 theta (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta) (.f64 #s(literal -1/6 binary64) theta)) (.f64 delta delta) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (sin.f64 theta)) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) #s(approx (pow (sin phi1) 2) (*.f64 phi1 phi1))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) theta) (sin.f64 delta))) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1)))))))))

Outputs

(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))

Calls

3 calls:

4.0ms

delta

4.0ms

lambda1

4.0ms

(atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))

Results

Accuracy	Segments	Branch
88.3%	1	`lambda1`
88.3%	1	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
88.3%	1	`delta`

Compiler

Compiled 33 to 32 computations (3% saved)

regimes21.0ms (0.2%)

Memory

-6.2MiB live, 40.8MiB allocated; 1ms collecting garbage

Counts

8 → 3

Calls

Call 1

Inputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 theta delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (.f64 (.f64 delta delta) theta) #s(literal -1/6 binary64) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (fma.f64 (.f64 theta (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta) (.f64 #s(literal -1/6 binary64) theta)) (.f64 delta delta) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (sin.f64 theta)) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))

Outputs

(+.f64 lambda1 (atan2.f64 (*.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (*.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))

(+.f64 lambda1 (atan2.f64 (*.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (*.f64 (fma.f64 (*.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (sin.f64 theta)) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))

(+.f64 lambda1 (atan2.f64 (*.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))

Calls

7 calls:

3.0ms	phi2
3.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
3.0ms	phi1
3.0ms	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))
3.0ms	delta

Results

Accuracy	Segments	Branch
80.1%	3	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
79.5%	3	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
76.2%	1	`phi1`
76.2%	1	`phi2`
82.2%	3	`delta`
82.1%	3	`theta`
76.2%	1	`lambda1`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes3.0ms (0%)

Memory

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

Counts

7 → 3

Calls

Call 1

Inputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 theta delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (.f64 (.f64 delta delta) theta) #s(literal -1/6 binary64) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (fma.f64 (.f64 theta (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta) (.f64 #s(literal -1/6 binary64) theta)) (.f64 delta delta) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))

Outputs

(+.f64 lambda1 (atan2.f64 (*.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (*.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))

(+.f64 lambda1 (atan2.f64 (*.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))

(+.f64 lambda1 (atan2.f64 (*.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))

Calls

1 calls:

2.0ms

delta

Results

Accuracy	Segments	Branch
82.2%	3	`delta`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes5.0ms (0%)

Memory

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

Counts

6 → 3

Calls

Call 1

Inputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 theta delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (.f64 (.f64 delta delta) theta) #s(literal -1/6 binary64) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (fma.f64 (.f64 theta (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta) (.f64 #s(literal -1/6 binary64) theta)) (.f64 delta delta) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))

Outputs

(+.f64 lambda1 (atan2.f64 (*.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))

(+.f64 lambda1 (atan2.f64 (*.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))

(+.f64 lambda1 (atan2.f64 (*.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))

Calls

2 calls:

2.0ms	theta
2.0ms	delta

Results

Accuracy	Segments	Branch
81.9%	3	`theta`
82.1%	3	`delta`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes10.0ms (0.1%)

Memory

-31.5MiB live, 15.1MiB allocated; 1ms collecting garbage

Counts

5 → 2

Calls

Call 1

Inputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 theta delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (.f64 (.f64 delta delta) theta) #s(literal -1/6 binary64) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (fma.f64 (.f64 theta (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta) (.f64 #s(literal -1/6 binary64) theta)) (.f64 delta delta) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))

Outputs

#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

(+.f64 lambda1 (atan2.f64 (*.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))

Calls

4 calls:

3.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
2.0ms	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))
2.0ms	theta
2.0ms	delta

Results

Accuracy	Segments	Branch
76.2%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
76.2%	1	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
77.8%	2	`theta`
76.2%	1	`delta`

Compiler

Compiled 66 to 55 computations (16.7% saved)

regimes13.0ms (0.1%)

Memory

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

Counts

4 → 2

Calls

Call 1

Inputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 theta delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (.f64 (.f64 delta delta) theta) #s(literal -1/6 binary64) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (fma.f64 (.f64 theta (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta) (.f64 #s(literal -1/6 binary64) theta)) (.f64 delta delta) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))

Outputs

(+.f64 lambda1 (atan2.f64 (*.f64 #s(approx (* (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (*.f64 (fma.f64 (*.f64 (*.f64 delta delta) theta) #s(literal -1/6 binary64) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))

#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

Calls

7 calls:

2.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
2.0ms	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))
2.0ms	theta
2.0ms	phi1
2.0ms	lambda1

Results

Accuracy	Segments	Branch
68.8%	1	`phi2`
68.8%	1	`phi1`
68.8%	1	`delta`
70.5%	2	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
70.4%	2	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
68.8%	1	`lambda1`
68.8%	1	`theta`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes6.0ms (0%)

Memory

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

Accuracy

Total -3.0b remaining (-14.9%)

Threshold costs -3b (-14.9%)

Counts

2 → 1

Calls

Call 1

Inputs

#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

(+.f64 lambda1 (atan2.f64 (*.f64 #s(approx (* (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (*.f64 theta delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))

Outputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

Calls

4 calls:

1.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
1.0ms	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))
1.0ms	theta
1.0ms	phi2

Results

Accuracy	Segments	Branch
68.8%	1	`phi2`
68.8%	1	`theta`
68.8%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
68.8%	1	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`

Compiler

Compiled 66 to 55 computations (16.7% saved)

bsearch93.0ms (0.7%)

Memory

4.8MiB live, 101.1MiB allocated; 5ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
42.0ms	4.049393302150625e-13	0.9464166208980751
44.0ms	-10972949253796338000.0	-11391746112.117874

Samples

73.0ms

304×

valid

Compiler

Compiled 1 461 to 1 095 computations (25.1% saved)

Precisions

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

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

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

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

ival-asin: 4.0ms (6.4% of total)

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

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

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

adjust: 0.0ms (0% of total)

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

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

bsearch8.0ms (0.1%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
6.0ms	4.049393302150625e-13	0.9464166208980751
1.0ms	-10972949253796338000.0	-11391746112.117874

Samples

4.0ms

16×

valid

Compiler

Compiled 1 556 to 1 171 computations (24.7% saved)

Precisions

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

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

ival-sin: 1.0ms (32.9% of total)

ival-cos: 1.0ms (32.9% of total)

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

adjust: 0.0ms (0% of total)

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

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

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

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

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

bsearch84.0ms (0.6%)

Memory

-42.2MiB live, 50.9MiB allocated; 5ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	predicate-same
1×	narrow-enough

Steps

Time	Left	Right
15.0ms	1.4238313092092984e-14	4.049393302150625e-13
52.0ms	-6.707567398452579e+24	-10972949253796338000.0

Samples

58.0ms

208×

valid

Compiler

Compiled 1 282 to 895 computations (30.2% saved)

Precisions

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

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

ival-asin: 12.0ms (23.6% of total)

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

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

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

ival-atan2: 2.0ms (3.9% of total)

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

adjust: 0.0ms (0% of total)

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

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

bsearch37.0ms (0.3%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	predicate-same
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	1.4238313092092984e-14	4.049393302150625e-13
34.0ms	-10972949253796338000.0	-11391746112.117874

Samples

28.0ms

112×

valid

Compiler

Compiled 1 191 to 830 computations (30.3% saved)

Precisions

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

ival-sin: 10.0ms (40.8% of total)

ival-cos: 7.0ms (28.6% of total)

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

ival-asin: 2.0ms (8.2% of total)

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

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

adjust: 0.0ms (0% of total)

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

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

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

bsearch22.0ms (0.2%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	predicate-same
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	1.4238313092092984e-14	4.049393302150625e-13
20.0ms	-10972949253796338000.0	-11391746112.117874

Samples

16.0ms

64×

valid

Compiler

Compiled 1 128 to 785 computations (30.4% saved)

Precisions

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

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

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

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

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

ival-asin: 1.0ms (7.1% of total)

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

adjust: 0.0ms (0% of total)

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

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

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

bsearch81.0ms (0.6%)

Memory

-10.0MiB live, 35.8MiB allocated; 8ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
77.0ms	-5.879384971769531e+187	-1.6546445774758762e+175

Samples

40.0ms

160×

valid

Compiler

Compiled 806 to 571 computations (29.2% saved)

Precisions

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

ival-sin: 13.0ms (38% of total)

ival-cos: 10.0ms (29.3% of total)

ival-mult: 5.0ms (14.6% of total)

ival-asin: 2.0ms (5.9% of total)

ival-atan2: 2.0ms (5.9% of total)

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

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

adjust: 0.0ms (0% of total)

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

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

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-0.0536567130999105	-1.9630133229611212e-14

Compiler

Compiled 36 to 31 computations (13.9% saved)

simplify63.0ms (0.5%)

Memory

-15.3MiB live, 36.0MiB allocated; 5ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	179	1103
1	275	1103
2	447	1103
3	865	1103
4	1865	1103
5	5239	1103

Stop Event

1×	node limit

Calls

Call 1

Inputs
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))))))
(if (<=.f64 delta #s(literal -11500000000 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (if (<=.f64 delta #s(literal 1890791267555229/2305843009213693952 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (cos.f64 phi1))))) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))))
(if (<=.f64 delta #s(literal -11500000000 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (if (<=.f64 delta #s(literal 1936908127739503/2305843009213693952 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
(if (<=.f64 delta #s(literal -500000000000000000000 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))) (if (<=.f64 delta #s(literal 3961408125713217/9903520314283042199192993792 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (sin.f64 theta)) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))))
(if (<=.f64 delta #s(literal -4400000000000 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))) (if (<=.f64 delta #s(literal 3961408125713217/9903520314283042199192993792 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))))
(if (<=.f64 delta #s(literal -2000000000000 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))) (if (<=.f64 delta #s(literal 3961408125713217/9903520314283042199192993792 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))))
(if (<=.f64 theta #s(literal -19499999999999998598753502916225481291996289285315236524554645139312634494737687039823369233467232216794843402541818457247332929466982878467424643625601139226705415076128489472 binary64)) #s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))))
(if (<=.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))) #s(literal -3602879701896397/72057594037927936 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (.f64 (.f64 delta delta) theta) #s(literal -1/6 binary64) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))) #s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

Outputs
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (.f64 (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 phi1))))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) #s(approx ( (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))))))
(if (<=.f64 delta #s(literal -11500000000 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (if (<=.f64 delta #s(literal 1890791267555229/2305843009213693952 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (cos.f64 phi1))))) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))))
(if (or (<=.f64 delta #s(literal -11500000000 binary64)) (not (<=.f64 delta #s(literal 1890791267555229/2305843009213693952 binary64)))) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (*.f64 (cos.f64 phi1) (cos.f64 phi1))))))
(if (<=.f64 delta #s(literal -11500000000 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (if (<=.f64 delta #s(literal 1936908127739503/2305843009213693952 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))))
(if (or (<=.f64 delta #s(literal -11500000000 binary64)) (not (<=.f64 delta #s(literal 1936908127739503/2305843009213693952 binary64)))) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
(if (<=.f64 delta #s(literal -500000000000000000000 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))) (if (<=.f64 delta #s(literal 3961408125713217/9903520314283042199192993792 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (sin.f64 theta)) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))))
(if (<=.f64 delta #s(literal -4400000000000 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))) (if (<=.f64 delta #s(literal 3961408125713217/9903520314283042199192993792 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))))
(if (<=.f64 delta #s(literal -2000000000000 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))) (if (<=.f64 delta #s(literal 3961408125713217/9903520314283042199192993792 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta))))))
(if (or (<=.f64 delta #s(literal -2000000000000 binary64)) (not (<=.f64 delta #s(literal 3961408125713217/9903520314283042199192993792 binary64)))) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))))
(if (<=.f64 theta #s(literal -19499999999999998598753502916225481291996289285315236524554645139312634494737687039823369233467232216794843402541818457247332929466982878467424643625601139226705415076128489472 binary64)) #s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))))
(if (<=.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))) #s(literal -3602879701896397/72057594037927936 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) theta) (.f64 (fma.f64 (.f64 (.f64 delta delta) theta) #s(literal -1/6 binary64) theta) delta))) (cos.f64 phi1)) #s(approx (- (cos delta) (+ ( (* (cos delta) (sin phi1)) (sin phi1)) (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)))) (cos.f64 delta)))) #s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

derivations774.0ms (5.8%)

Memory

11.4MiB live, 519.3MiB allocated; 76ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 1 142 to 184 computations (83.9% saved)

preprocess151.0ms (1.1%)

Memory: 31.9MiB live, 124.9MiB allocated; 22ms collecting garbage
Remove: (abs phi2)
Compiler: Compiled 2 416 to 456 computations (81.1% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze1.4s (10.3%)

sample4.2s (31.3%)

explain375.0ms (2.8%)

preprocess187.0ms (1.4%)

eval0.0ms (0%)

prune1.0ms (0%)

simplify168.0ms (1.2%)

localize78.0ms (0.6%)

series54.0ms (0.4%)

simplify294.0ms (2.2%)

rewrite196.0ms (1.5%)

eval44.0ms (0.3%)

prune19.0ms (0.1%)

simplify156.0ms (1.2%)

localize323.0ms (2.4%)

series118.0ms (0.9%)

simplify218.0ms (1.6%)

rewrite188.0ms (1.4%)

eval105.0ms (0.8%)

prune37.0ms (0.3%)

simplify168.0ms (1.3%)

localize212.0ms (1.6%)

series52.0ms (0.4%)

simplify188.0ms (1.4%)

rewrite213.0ms (1.6%)

eval107.0ms (0.8%)

prune53.0ms (0.4%)

simplify150.0ms (1.1%)

localize710.0ms (5.3%)

series63.0ms (0.5%)

simplify207.0ms (1.5%)

rewrite237.0ms (1.8%)

eval110.0ms (0.8%)

prune109.0ms (0.8%)

regimes187.0ms (1.4%)

regimes186.0ms (1.4%)

regimes166.0ms (1.2%)

regimes174.0ms (1.3%)

regimes162.0ms (1.2%)

regimes174.0ms (1.3%)

regimes149.0ms (1.1%)

regimes56.0ms (0.4%)

regimes64.0ms (0.5%)

regimes7.0ms (0.1%)

regimes13.0ms (0.1%)

regimes21.0ms (0.2%)

regimes3.0ms (0%)

regimes5.0ms (0%)

regimes10.0ms (0.1%)

regimes13.0ms (0.1%)

regimes6.0ms (0%)

bsearch93.0ms (0.7%)

bsearch8.0ms (0.1%)

bsearch84.0ms (0.6%)

bsearch37.0ms (0.3%)

bsearch22.0ms (0.2%)

bsearch81.0ms (0.6%)

bsearch1.0ms (0%)

simplify63.0ms (0.5%)

derivations774.0ms (5.8%)

preprocess151.0ms (1.1%)

end0.0ms (0%)

Profiling